Markiertes Shape verschieben, ohne Namen des Shapes
24.10.2023 17:15:03
Dieter(Drummer)
mit folgendem Code soll das markierte Shape im aktiven Tabellenblatt verschoben werden. Es soll aber kein Name des Shapes im Code nötig sein.
Der Code verschiebt aber das Shape nicht, sondern springt direkt in Zelle A1.
Wie muss der Code lauten, dass das markierte Shape, ohne im Code den Shape Namen anzugeben?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Mein jetziger Code:
Private Sub imgL_Click()
Selection.ShapeRange.IncrementLeft -0.75
[A1].Select
End Sub