Herbert hat mir geschrieben das ich mit:
------------------
Public
Sub Diagramm_nach_Word()
Dim wordApp As Word.Application
Workbooks("Diagramm nach Word.xls"). _
Sheets(1).ChartObjects(1).Copy
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.Documents.Add Template:="Normal"
End With
ActiveDocument.ActiveWindow.Panes(1).Selection.Paste
End Sub
-----------------------------
Obwohl das auch bei mir nur zum teil fusioniert, so ist besse:
---
Public
Sub Diagrammnw()
'Dim wordApp As Word.Application
Tabelle1.ChartObjects(1).Copy
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.Documents.Add Template:="Normal"
End With
wordApp.ActiveWindow.Panes(1).Selection.Paste
End Sub
-------------------------
Doch das Chartobject wird immer an den anfang des worddokumentes eingefuegt.
Wie bekomme ich es denn an eine bestimmte stelle?
Z.B ein eine wordtabelle oder ein textfeld usw.!?!
Wer weiss hier weiter
horst