Diagramme von Excel nach Word
04.05.2020 20:26:58
Excel
ich versuche gerade mehrere Diagramme von Excel nach Word zu speichern und habe bereits eine erste Lösung gefunden.
Leider ist diese sehr langsam und benötigt sehr viel Arbeitsspeicher.
Hat jemand von euch eine bessere Idee?
Sub Word()
Sheets("Darstellung").Range("a1:z35").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Application.CutCopyMode = False
Set wordapp = GetObject(, "Word.Application")
wdPasteDefault = 0
With wordapp
With .Selection
.PasteAndFormat (wdPasteDefault)
End With
End With
Set wordapp = Nothing
Application.CutCopyMode = False
End Sub
Ferdi
Anzeige