Private Sub CommandButton10_Click()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.ChartArea.Select
If MsgBox(" Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, " PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True
pdfName = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Desktop", fileFilter:="PDF-Dateien (*.pdf), *.pdf")
If pdfName = "Falsch" Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
End Sub