Hallo,
ich möchte die Stelle und die Größe eines Charts festlegen und nicht über verschieben und scale.
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -230.25
ActiveSheet.Shapes("Diagramm 1").IncrementTop -143.25
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 0.52, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 1.51, msoFalse, _
msoScaleFromTopLeft
Folgende Varianten habe ich schon probiert.
Variante 1:
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.ChartObjects("Diagramm 1").Top 10
ActiveSheet.ChartObjects("Diagramm 1").Left 10
ActiveSheet.ChartObjects("Diagramm 1").Width 100
ActiveSheet.ChartObjects("Diagramm 1").Height 200
Variante 2:
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 1").Height 200
.....
....
Kann mir jemand ein Tipp oder sogar die lösung geben? Was mache ich falsch!
Danke im Vorraus.
Gruß
Randolf