OptionButton per Makro ...
04.03.2017 15:09:05
walter
ich brauch unbedingt eine Lösung meiner OptionButton die sich in der
Zelle verschieben.
Ich habe die mal aufgezeichnet und in das Makro eingesetzt.
Die größe wird jetzt sauber gesetzt aber die Position möchte
ich gern mitte der jeweiligen Zelle setzen.
Ich finde keine Makro Lösung.
Private Sub Option_Button_setzen()
Dim ole_objekte As OLEObjects
Dim ole_objekt As OLEObject
' ein Verweis auf alle OLE Objekte im Active Sheet
Set ole_objekte = ActiveSheet.OLEObjects
' wir gehen alle OLE Objekte durch und
For Each ole_objekt In ole_objekte
' testen ob es sich um einen Option Button handelt
If (ole_objekt.progID = "Forms.OptionButton.1") Then
' und wenn ja, dann Value aus False :-)
' ole_objekt.Object.Value = False
ole_objekt.ShapeRange.LockAspectRatio = msoFalse
ole_objekt.ShapeRange.Height = 10#
ole_objekt.ShapeRange.Width = 10#
ole_objekt.Placement = xlFreeFloating
ole_objekt.ShapeRange.LockAspectRatio = msoTrue 'seitenverhältnis sperren
End If
Next ole_objekt
End Sub
walter mb