Sub AlleDiagrammeInGrafikenExportierenPDFC()
	Dim objPDFC As PDFCreator.clsPDFCreator
	Dim objBlatt As Worksheet
	Dim objDiagramm As ChartObject
    
	Set objPDFC = New PDFCreator.clsPDFCreator
	If objPDFC.cStart("/NoProcessingAtStartup") = _
		False Then
		MsgBox "PDFCreator ist schon aktiv. " & _
			"Bitte beenden Sie den Prozess."
		Exit Sub
	End If

	For Each objBlatt In ActiveWorkbook.Worksheets
		For Each objDiagramm In objBlatt.ChartObjects
			With objPDFC
				.cOption("UseAutosave") = 1
				.cOption("UseAutosaveDirectory") = 1
           .cOption("AutosaveDirectory") = _
					"D:\Eigene Bilder"
				.cOption("AutosaveFilename") = _
					objBlatt.Name & "_" & objDiagramm.Name
				.cOption("AutosaveFormat") = 2
				.cOption("AutosaveStartStandardProgram") _
					= 1
				.cClearCache
			End With
    
			objDiagramm.Chart.PrintOut _
				ActivePrinter:="PDFCreator"
    
			Do Until objPDFC.cCountOfPrintjobs = 1
				DoEvents
			Loop
			objPDFC.cPrinterStop = False
            
			Do Until objPDFC.cCountOfPrintjobs = 0
				DoEvents
			Loop
		Next
	Next
    
	objPDFC.cClose
	Set objPDFC = Nothing
End Sub

