Option buttons in groepsvak schonen

[WimenBeer]

Vrienden,

Ik probeer alle 'Option buttons' in een groepsvak via VBA te schonen.
Het groepsvak heeft 4 'Option buttons' die ik bij het openen van het Excel bestand op uitgeschakeld wil zetten.

Dus in 'ThisWookbook' wil ik een macro opnemen die bij het openen van het bestand alles uitschakeld.

Helaas kon ik daar nix over vinden op google.

Graag hulp.

wimenbeer

 

[HSV]

Test het eens.

Sub hsv()
Dim obj As OLEObject
  For Each obj In Sheets(1).OLEObjects
   If Left(obj.Name, 12) = "OptionButton" Then obj.object.Value = False
  Next obj
End Sub

 

[WimenBeer]

Harry,

'Option buttons' in een groepsvak zijn schijnbaar geen OLEopbject.

Ik heb het toegepast maar het werkt niet op deze manier.

Weet je misschien well wat 'Option buttons' zijn binnen VBA?

Ik hoor graag

Wim

 

[WimenBeer]

Harry,

Oplossing gevonden

Dim obj As OptionButton
  For Each obj In Worksheets("Blad1").OptionButtons
   If Left(obj.Name, 13) = "Option Button" Then obj.Value = False
   
  Next obj

 

[Warme bakkertje]

Wim, je moet dan wel vermelden dat je formulierbesturingselementen gebruikt en geen Active-X besturingselementen, want dan werkt de macro van HSV wel hoor, zelfs in een groepsvak

 

[HSV]

Ik heb de Nederlandse versie Excel.
Bij een ActiveX-besturingselement heet het een 'OptionButton'.
Bij een Formulierbesturingselement heet het een 'Keuzerondje'.
Vandaar die keuze.

Maar je hebt het zelf al opgelost.

 

[snb]

Voor wie geïnteresseerd is een robuustere (want niet afhankelijk van de naam) versie:

Sub snb()
  For Each it In Sheets(1).OLEObjects
    If typename(it.object)= "OptionButton" Then it.object.Value = False
  Next
End Sub

en testen of een optionbutton een optionbutton is lijkt me 100 % redundant:

Sub snb()
    For Each it In OptionButtons
        it.Value = True
    Next
End Sub

 

[HSV]

Beetje jammer dat het niet werkt @snb, was je mooi van de functie 'left' af.

 

[snb]

@HSV

iets verder kijken dan...

Sub snb()
  For Each it In Sheets(1).OLEObjects
    If typename(it.object)= "OptionButton" Then it.object.Value = False
  Next
End Sub

 

[HSV]

@snb,
Jij komt met een halve oplossing, daar kan ik niets aan doen.

 

[WimenBeer]

Collega's

Discussuie is zeer op zijn plaats.
Het is echter niet mijn persoonlijke probleem. Ik probreer een andere vraag van iemand op te lossen en liep tergen dit probleem op.
Volgens mij werkt mijn oplossing perfect (en die van jullie ook).
Ik ga weer verder met de oorspronkelijke melding en hoop daarmee iemand te helpen..

Wim

 

[snb]

Je hebt dan toch mijn opmerking over redundantie over het hoofd gezien....