Gruppierte Formen mit VBA verschieben

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich möchte in einem Diagramm gruppierte Formen, ein Textfeld plus eine Linie, mit VBA absolut positionieren. Mittels Makroaufzeichnung bekomme ich immer nur eine „Increment“-Verschiebung, d.h. bezogen auf die vorherige Position - Beispiel:

 ActiveChart.Shapes("Group 301").Select
 Selection.ShapeRange.IncrementLeft 114.1

Ich kriege ums Verrecken nicht heraus, wie ich die Anweisung schreiben muss.

Wer weiss was?

Danke
Laika

#2

ich möchte in einem Diagramm gruppierte Formen, ein Textfeld
plus eine Linie, mit VBA absolut positionieren. Mittels
Makroaufzeichnung bekomme ich immer nur eine
„Increment“-Verschiebung, d.h. bezogen auf die vorherige
Ich kriege ums Verrecken nicht heraus, wie ich die Anweisung
schreiben muss.

Hi Laika,
probiers mal so

Sub Makro1()
With ActiveChart.Shapes.Range("Group 3")
 .Left = -30 ' :smile:
 .Top = 100
End With
End Sub

Frostern
Reinhard

#3

Danke, klappt bestens, schöne Ostern (owt)