Hallo,
bei meinem ersten Problem mit dem zentrieren von Option Buttons innerhalb einer Zelle wiurde mir hier sehr schenll geholfen. Wie das aber so ist, ein Problem führt zum nächsten.
Das hier war die Lösung, um einen einzelnen Button zu zentrieren:
With ActiveSheet.OptionButtons("Option Button 265")
.Top = Rows(.TopLeftCell.Row).Top + (((Rows(.TopLeftCell.Row).Height) - .Height) / 2)
.Left = Columns(.TopLeftCell.Column).Left + (((Columns(.TopLeftCell.Column).Width) - .Width) / 2)
End With
Jetzt habe ich versucht eine Schleife darum zu basteln, die mir alle 80 Buttons zentriert, woran ich aber wieder mal scheitere. Wie kriege ich das wohl hin?
Ich habe es mit verschiedenen Ansätzen dieser Art versucht:
Dim OptBtn As OptionButton
For Each OptBtn In ActiveSheet.OptionButtons
With ActiveSheet.OptionButtons("Option Button 265")
.Top = Rows(.TopLeftCell.Row).Top + (((Rows(.TopLeftCell.Row).Height) - .Height) / 2)
.Left = Columns(.TopLeftCell.Column).Left + (((Columns(.TopLeftCell.Column).Width) - .Width) / 2)
End With
Next
Das Ergebnis wird zwar nicht erzielt, aber es erscheint zumindest keine Fehlermeldung :-)
Gruß
Peter