Das unten stehende Skript verschiebt mein Diagramm an einen bestimmten Platz. jedoch muss das Diagramm "Diagramm1" heißen. DA das erstellte Diagramm sowieso schon markiert ist möchte ich , dass es ohne Einbeziehung des Namens verschoben wird. Ist es möglich das einfach das aktuelle Diagramm verschoben wird?
ActiveSheet.ChartObjects.Activate ("Diagramm1")
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 1").Top = 250
ActiveSheet.Shapes("Diagramm 1").Left = -182.25
Geht da etwas in die Richtung: ActiveSheet.Shapes(ActiveChart) ?
Danke Im Voaraus
Andy