So wählen Sie eine ActiveX-Option/Optionsfelder in Formularsteuerelementen

Question

Ich habe eine Formularsteuerung mit ActiveX Radio/Optionsschaltflächen darin. Der Formularsteuerungsname ist Side und enthält Options/Optionsfelder mit den Namen xOption, oOption und randomSide. Wie könnte ich ein Makro erstellen, mit dem ich beim Öffnen des Arbeitsbuchs die Optionsfelder auf einen bestimmten Wert setzen kann? Aufnahme eines Makros von mir beim Klicken auf Optionen führt zu einem leeren Makro. Ich habe bereits versucht:

ActiveSheet.Shapes.Range(Array("Side")).Select 
ActiveSheet.Shapes.Range("xOption").OLEFormat.Object.Value = 1 

Aber das gibt mir eine Fehlermeldung 1004 und andere Codes geben Sie mir Fehler 91. Ich bin wirklich neu in VBA so, wenn ich dumm aussehen Sie wissen, warum.

Answer 1

so etwas wie dies versuchen, mit Worksheets statt ActiveSheet:

Private Sub Workbook_Open() 
    Worksheets("your sheet name here").OLEObjects("xOption").Object.Value = 1 
End Sub 

Wie Sie es wollen nach dem Öffnen der Folie ausgewählt werden. Legen Sie diese auf ThisWorkbook.

Answer 2

Sie so etwas wie dies versuchen kann ...

ActiveSheet.OLEObjects("xOption").Object.Value = 1