Hallo,
ich möcht ein Diagramm in einem Tabellenblatt absolut bezogen auf den Tabellenursprung (Zelle A1) posizionieren (mit VBA, Office 2003).
Wenn ich das mit
ActiveSheet.Shapes(„Diagramm 141“).IncrementLeft -525.75
ActiveSheet.Shapes(„Diagramm 141“).IncrementTop -2.25
mache, wird das relativ zur aktuellen Posizion gemacht. Daher behelfe ich mich mit
ActiveSheet.Shapes(„Diagramm 141“).IncrementLeft -3000
ActiveSheet.Shapes(„Diagramm 141“).IncrementTop -1000#
Damit geht es auf Posizion 0, 0, also linke, obere Ecke, dann
ActiveSheet.Shapes(„Diagramm 141“).IncrementLeft 1030
ActiveSheet.Shapes(„Diagramm 141“).IncrementTop 189#
Damit geht es auf die gewünschte Posizion.
Gibt es was Eleganteres?
Einfach nur
ActiveSheet.Shapes(„Diagramm 141“).Left 1030
habe ich probiert … Fehler. In der Hilfe finde ich nichts.
Danke
Laika