activeX keuze rondje instellen dmv VBA

[Doohan]

Beste helper,

Ik heb op een sheet meerdere groepen active-x keuze rondjes staan.
Ik probeer een keuzerondje aan te zetten als een keuze is gemaakt in een andere keuze rondje
uit een andere groep.
Op onderstaande code

    Sheets("LP Detail 63 Hz - 8 kHz").Shapes("opt_HBolA").Value = True

krijg ik volgende melding. Fout 438 tijdens uitvoering. Deze eigenschap of methode wordt niet ondersteund door dit object

Hoe kan ik dmv van een keuzerondje activatie een andere keuze rondje in een andere groep actief zetten.
alvast vriendelijk dank

 

[AccessGuru]

Nu nog het bestandje met de gewraakte keuzerondjes en code .

 

[edmoor]

Doe het eens zo:

Sheets("LP Detail 63 Hz - 8 kHz").opt_HBolA = True

 

[snb]

Je kunt een ActiveX-element op 3 manieren beanderen: als vorm (shape), als OLEobject of als object van een werkblad.

Sub M_snb()
  x = Sheet1.Shapes.Count
  x1 = Sheet1.Shapes(1).OLEFormat.Object.Name
  x2 = Sheet1.Shapes(1).OLEFormat.Object.Object.Value
    
  y = Sheet1.OLEObjects.Count
  y1 = Sheet1.OLEObjects(1).Name
  y2 = Sheet1.OLEObjects(1).Object.Value
    
  z = Sheet1.OptionButton1.Value
  z1 = Sheet1.OptionButton1.Name
End Sub

Jouw code moet bij de invoer al via intellisense een signaal hebben gegeven dat de eigenschap ontbreekt.

 

[Doohan]

Beste Edmoor,

Ik had toch al eens gezegd dat je geweldig bent, zo niet. Bij deze dan.
Je heb me weer gered. THX

 

[Doohan]

@SNB,

THX zeer nuttige info.

 

[snb]

Begrip is belangrijker dan een oplossing.