Sub AlleDiagrammBltterExportieren()
	Dim objDiagrammBlatt As Chart
	Dim strPfadname As String
    
	For Each objDiagrammBlatt In ActiveWorkbook.Charts
		strPfadname = "D:\PDF\" & objDiagrammBlatt.Name _
			& ".pdf"
		objDiagrammBlatt.ExportAsFixedFormat _
			Type:=xlTypePDF, Filename:=strPfadname
	Next
End Sub
