ich könnte mal wieder Hilfe wegen eines Makro´s gebrauchen...
Ich versuche aus Excel ein Diagramm in ein Word-Dokument zu kopieren, doch leider klappt das nicht so ganz. Ich versuche es mit folgendem Code:
Sub diagramm()
ActiveSheet.ChartObjects("Diagramm 1").Activate
Set word = CreateObject("word.Application")
word.Visible = True
word.documents.Open FileName:="""C:\temp\test.doc"""
Dim wrddok As Object
wrddok As documents.Type
ActiveChart.CopyPicture Appearance:=xlScreen, _
Size:=xlScreen, _
Format:=xlPicture
word.dokuments.Range(0, 0).PasteSpecial _
Link:=False, _
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, _
DisplayAsIcon:=False
Set word = Nothing
wrdDoku.SaveAs FileName:="test_" & Date & ".doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
Falls jemand eine Idee hat wie es klappen könnte, bin ich für selbige sehr dankbar.....