Hallo Zusammen,
ich stehe vor folgender Herausforderung:
Ich erstelle mittels VBA ein leeres Diagramm in das ich aus der Zwischenablage ein Shape einfüge und das ganzedann als GIF abspeicher. Die Erstellung des Diagramms funktioniert auch und auch das Kopieren der Grafik in die Zwischenablage. Allerdings ist das Diagramm standardmäßig auf beispielsweise Säule formatiert. Es ist also "weiß" da keine Daten vorhanden sind. Mit diser Formatierung kann man keine Grafiken mit strg V einfügen. Wenn ich das Diagramm auf den Inhalt "Bild" formatiere mit der Quelle "Zwischenablage" und dies als Standard einstelle wird mir immer wieder nur ein Diagramm mit genau der einen Grafik generiert, dass zum Zeitpunkt der Erstellung in der Zwischenablage war. Da sich die Grafik die ich in das Diagramm einfügen will ändert ist dies also sehr schlecht. Ich suche also eine Lösung das Diagramm irgendwie standarmäßig so zu formatieren, dass man immer mit strg V etwas einfügen kann.
Ich hoffe ich habe das Problem hinreichend beschrieben und hoffe auf eine Lösung. Hier noch der Code
Dim PFI_DASH_1 As Shape
Dim objChrt As ChartObject
Set PFI_DASH_1 = .Shapes("PFI_DASH_1")
PFI_DASH_1.CopyPicture Appearance:=2, Format:=-4147
Set objChrt = .ChartObjects.Add(10, 10, PFI_DASH_1.Width + 8, PFI_DASH_1.Height + 8)
PFI_DASH_1.Copy
objChrt.Chart.Paste
objChrt.Chart.Export Filename:=ThisWorkbook.Path & "\PFI_DASH_1.gif", FilterName:="GIF", Interactive:=False
Viele Grüße
Orosin
|