ich hab mal wieder ein Problem. Und zwar soll ein Diagramm aus einer Exceldatei in ein neues Worddokument kopiert werden. So weit so gut. Leider ist das Diagramm zu klein. Gibt es einen Befehl in dem ich die Größe anpassen kann? Und mein zweites Problem ist, dass das Diagramm als Grafik kopiert werden soll wegen Speicher (ich hoff ihr versteht was ich meine).
Sub copyandpasteChart()
Sheets("Tabelle2").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Dim word As Object
Set wordApp = CreateObject("word.application")
With wordApp
.Visible = True
.Documents.Add
.activedocument.PageSetup.Orientation = 1
.Selection.Paste
End With
End Sub
Gruß Ann