Ich versuche ein Pivot Diagramm auf eine andere Seite zu verschieben.
Wenn ich jedoch im neuen Blatt bin dann kommt bei ActiveSheet.ChartObjects("Diagramm 1").Activate eine Debugmeldung
Was habeich falsch gemacht?
Sub Chartverschieben()
Worksheets(1).ChartObjects(1).Activate
ActiveChart.Parent.Cut
Sheets.Add After:=ActiveSheet
Range("B3").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 3.03125, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 2.5034722222, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
End Sub
Danke und GrussRoger