habe heute ein etwas ungewöhnliches Anliegen: ich plazeire ein Diagramm in einen beriets vorandenen Diagramm-Blatt. So weit alles in Ordnung. Nun möchte ich (per VBA) das Diagramm an eine feste Position schieben und eine feste Größe zuordnen. Folgenden Code habe ich :
Sub Makro1()
ActiveSheet.Shapes("Diagramm 1").Left = 0
ActiveSheet.Shapes("Diagramm 1").Top = 30
ActiveSheet.Shapes("Diagramm 1").Height = 200
ActiveSheet.Shapes("Diagramm 1").Width = 500
End Sub
Die Position macht er, aber bei der Höhe und Breite macht er Probleme. Wenn ich den Code mehrfach ausführe, macht er das Diagramm immer kleiner, eigentlcih sollte es aber immer die gleiche (weil absolute) Größe sein.
Was mache ich falsch, oder gibt es einen besseren Weg?
Danke schon mal sagt Euch
Jochen