Sub AlleDiagrammeExportieren()
	Dim objBlatt As Worksheet
	Dim objDiagramm As ChartObject
	Dim strPfadname As String
    
	For Each objBlatt In ActiveWorkbook.Worksheets
		For Each objDiagramm In objBlatt.ChartObjects
			strPfadname = "D:\PDF\" & objBlatt.Name _ 
				& "_" & objDiagramm.Name & ".pdf"
  		objDiagramm.Chart.ExportAsFixedFormat _
  			Type:=xlTypePDF, Filename:=strPfadname
		Next
	Next
End Sub
