Markiertes Shape "Ellipse" ändern, ohne Namenangabe
23.10.2025 11:29:52
Dieter(Drummer)
Mit dem Code kann ich z.B. Shape "Ellipse x", die Form ändern. Das klappt.
Wie muss der Code lauten, dass ich nicht "Ellipse x" im Code angeben muss, sondern ein frei markiertes Shape nutzen kann?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei:
https://www.herber.de/bbs/user/179334.xlsm
Jetziger Code im Modul1:
Sub BreitWieHoch()
' Zugriff auf eine existierende Form
Dim meineForm As Shape
Set meineForm = ActiveSheet.Shapes("Ellipse x")
meineForm.Height = meineForm.Width
End SubAnzeige