Hallo liebe Forumsler,
ich habe foglendes, für mich schwer zu durchschauendes Problem:
Mittels Makro möchte ich ein Diagramm von der aktuelle geöffneten Excelmappe in ein Worddokument kopieren.
Dazu erstelle ich zur Laufzeit brav ein Word - Applikation - Objekt, erzeuge aus einer Wordvorlage ein neues Dokument und definiere anschliessend ein Word - Selection - Objekt welches auf eine bestimmte Textmarke im Dokument zeigt.
Soweit alles in Ordnung und funktionabel, wenn ich ein Range - Objekt in der Zwischenablage habe, funktioniert das anschliessende Pasten wunderbar:
| Dim Tabelle As Range
| Set Tabelle = Kopierbereich_Analysetabelle()
| Tabelle.Copy
|
| WordSelection.Goto What:=wdGoToBookmark, Name:=NameTextmarkeTabelle
| WordSelection.PasteExcelTable False, False, False
Habe ich nun ein Chart - Objekt in der Zwischenablage, sollte ich laut Makroaufzeichnung in Word folgende Paste - Methode verwenden, welche von Word aus natürlich auch prompt klappt: Selection.PasteAndFormat (wdChartPicture)
Wenn ich diese Methode nun anwende..
| Dim Diagramm As ChartObject
| Set Diagramm = Kopierbereich_Diagramm
| Diagramm.Copy
|
| WordSelection.Goto What:=wdGoToBookmark, Name:=NameTextmarkeDiagramm
| WordSelection.PasteAndFormat wdChartPicture
..bekomme ich in Excel die Fehlermeldung:
>>Laufzeitfehler 4605: Dieser Befehl ist nicht verfügbar Diese Fehlermeldung tritt nicht auf, wenn ich die normale Paste - Methode verwende bzw. PasteAndFormat mit Type:=wdPasteDefault
Das normale Paste wirft mir das Diagramm allerdings als eingebettetes Chart-Objekt auf das aktuelle Blatt und ich müsste es aufwändig in Position bringen, abgesehen davon habe ich ja nun ein eingebettetes Objekt und nicht eine Grafik..
Meine Frage nun - hat jemand das selbe Problem schon gelöst und wie?
Bin für jede Hilfe dankbar!
mfg
Alex Mair