ich möchte mit VBA mein excel Diagramm in Word einfügen. Habe dafür auch schon folgenden Code der ganz gut funktioniert:
Sub CPChart()
Sheets("Gesamtauswertung").Unprotect ("abcde")
Sheets("Gesamtauswertung").ChartObjects("EMA_Auswertung").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
With wordApp
.Visible = True
.Documents.Add
.activedocument.PageSetup.Orientation = 1
.Selection.Paste
End With
Sheets("Gesamtauswertung").Protect
End Sub
Allerdings ist das Diagramm dann zu klein in word, kann ich das irgendwie bestimmen, wie groß das zu sein hat?
und ich möchte dann noch einen bestimmten Tabellenbereich auch aus Excel auf die nächste Seite in Word kopieren geht das?
Liebe Grüße,
Zoe