Dynamische verwijzing knop naam

[Woffels]

Ik heb 15 activeX knoppen met de oplopende naam:

cmdToggle1
cmdToggle2
cmdToggle3
enz
cmdToggle15

Nu wil ik van alle 15 knoppen de caption in één keer veranderen van "on" naar "Off".

Nu kan ik dat natuurlijk zo doen:
cmdToggle1.Caption = "Off"
cmdToggle2.Caption = "Off"
cmdToggle3.Caption = "Off"
enz
cmdToggle15.Caption = "Off"

Maar kan dat niet makkelijker met een for..next oid?

Kort gezegd, hoe kan ik het getal 1 in cmdToggle1.Caption Dynamisch maken?

 

[edmoor]

Voor alle OptionButtons:

Dim ctl As Object
For Each ctl In ActiveSheet.OLEObjects
    If TypeName(ctl.Object) = "OptionButton" Then
        ctl.Object.Caption = "Off"
    End If
Next

Of alleen 1 t/m 15:

For Each ctl In ActiveSheet.OLEObjects
    If TypeName(ctl.Object) = "OptionButton" Then
        Select Case ctl.Index
            Case 1 to 15
                ctl.Object.Caption = "Off"
        End Select
    End If
Next

 

[HSV]

Of.

for j = 1 to 15
me("cmdtoggle" & j).caption = "off"
next j

Indien de buttons op het werkblad staan wat mijn vermoeden is dan wordt het controls i.p.v. me.

Controls("cmdtoggle" & j).caption = "off"

 

[Woffels]

De optie van Edmoor werkt met een kleine aanpassing.
OptionButton moest CommandButton zijn, omdat ik een Commandbutton gebruik.

Ook de optie van HSV nog geprobeerd, maar die krijg ik niet aan de praat. (zie bijlage).

 

[edmoor]

De optie van Edmoor werkt met een kleine aanpassing.
OptionButton moest CommandButton zijn, omdat ik een Commandbutton gebruik.

Daarom is een voorbeeld documentje altijd zo handig.

 

[HSV]

Zo zal mijn code beter werken.

Private Sub CommandButton10_Click()
For j = 1 To 9
  OLEObjects("CommandButton" & j).Object.Caption = "off"
Next j
End Sub

 

[Woffels]

Ja, die werkt nu ook.
Bedankt beide.