Hallo,
ich habe ein Problem mit folgendem Makro:
Private Sub CommandButton1_Click()
Dim objAppWord As Object
Dim objDokument As Object
Dim objBlatt As Object
On Error Resume Next
Set objAppWord = GetObject(, „Word.Application“)
On Error GoTo 0
If objAppWord Is Nothing Then
Set objAppWord = CreateObject(„Word.Application“)
End If
Set objDokument = objAppWord.Documents.Open(Filename:="\hier der Pfad.doc")
With ThisWorkbook
For Each objBlatt In .Sheets
If TypeOf objBlatt Is Chart Then
objBlatt.CopyPicture
objDokument.Windows(1).Selection.Paste
End If
Next
End With
objDokument.Save
objAppWord.Quit
Set objDokument = Nothing
Set objAppWord = Nothing
End Sub
Dieser exportiert Diagramme in ein Word-Dokument (immer das selbe Dok., nach aktualisierung der Diagramme).
das Problem ist, dass die Diagramme hinzugefügt, und nicht wie gewünscht die veralteten ersetzt werden.
Kann mir da jemend einen Tip geben?
Gruß
TOPO