Hallo,
Da du ja mehrere Diagramm in einem PDF haben willst, hätte ich noch ein Ansatz.
"Verschiebe" die Diagramme alle auf eine eigenes "Diagramm-Blatt" dann alle Diagramme-Blätter selektieren und als PDF speichern.
Das Problem ist nur dass man dann alle Diagramm-Blätter eigentlich wieder auf die ursprünglichen Tabellenbläter bekommen muss.
Den 1. Teil hätte ich schon.
Habe die Namen der Diagramm-Blätter auch schon so formatiert, dass der Name des ursprünglichen Tabellenblatt enthalten ist.
Nur das Zurückschieben habe ich noch nicht.
Aber du könntest den Code mal in einer Kopie deiner Datei testen.
Wie es sich mit versteckten Blättern verhält weiß ich auch nicht....
Dim sh As Worksheet
Dim d As ChartObject
Dim s() As String
Dim x As Integer
For Each sh In Sheets
For Each d In sh.ChartObjects
Set d = sh.ChartObjects(1)
ReDim Preserve s(x)
s(x) = sh.Name & ";" & d.Name
d.Chart.Location xlLocationAsNewSheet, sh.Name & ";" & d.Name
x = x + 1
Next d
Next sh
Stop
Sheets(s).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\Mappe.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
|