Markiertes Shape in Zelle mittig setzen
14.01.2025 12:21:56
Dieter(Drummer)
mit diesem Code wird das Shape "Ellipse 20" in der Zelle mittig gesetzt und das funktioniert perfekt.
Ich suche folgende Möglichkeit:
1) Keine Zellenangabe
2) Keine Namensangabe der Ellipse
3) Es soll die vorher selbst markierte Ellipse, egal in welcher Zelle, mittig gesetzt werden und dann die Markierung der Ellipse aufgehoben werden.
Wäre toll, wenn es da eine Lösung gäbe.
Mit der Bitte im Hilfe,
grüßt,
Dieter(Drummer)
Sub GrafikZentrieren()
Dim rngCell As Range
Set rngCell = ActiveSheet.Range("B20")
With ActiveSheet.Shapes("Ellipse 20")
.Top = rngCell.Top + rngCell.Height / 2 - .Height / 2
.Left = rngCell.Left + rngCell.Width / 2 - .Width / 2
End With
End SubAnzeige