Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

OptionButton per Makro ...


Betrifft: OptionButton per Makro ... von: walter mb
Geschrieben am: 04.03.2017 15:09:05

Hallo zusammen,
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
mfg
walter mb

  

Betrifft: AW: OptionButton per Makro ... von: Hajo_Zi
Geschrieben am: 04.03.2017 15:11:15

es braucht nur ein Beitrag in offen sein.

GrußformelHomepage


Beiträge aus den Excel-Beispielen zum Thema "OptionButton per Makro ..."