フォームコントロールでActiveXオプション/ラジオボタンを選択する方法

ActiveXラジオ/オプションボタン付きフォームコントロールがあります。フォームコントロール名はSideで、オプションxOption、oOption、およびrandomSideの名前のラジオボタンが含まれています。ワークブックを開いたときにラジオボタンを特定の値に設定できるマクロを作成するにはどうしたらよいでしょうか。オプションをクリックしてマクロを記録すると、空白のマクロになります。フォームコントロールでActiveXオプション/ラジオボタンを選択する方法

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

をしかし、これは私にエラー1004を与え、他のコードは私が愚かに見える場合は、理由を知っているので、私はVBAには本当に新しいです私はエラー91を与える：私はすでに試してみました。

出典

2017-07-27 Bob lin

ブックを開くときに1つのオプションを選択しますか？ – paulinhax

@paulinhax Yea、ただ一つ –

ではなくActiveSheetのWorksheetsを使用して、このような何かを試してみてください：

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

あなたはそれがシートを開いた後に選択することにしたいと。これをThisWorkbookに置いてください。

出典

2017-07-27 19:28:42 paulinhax

[this]（https://stackoverflow.com/documentation/excel-vba/1107/vba-best-practices/11274/always-define-and-set-references-to-all-workbooks-and-sheets）も参照してください。＃t = 201707271939591786196）。 – paulinhax

あなたはこのような何かをしようとする...

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

出典

2017-07-27 19:11:02 sktneer

これは私に1004エラーを与えました、ワークシートのOLEObjectsプロパティを取得できませんクラス –

コードはActiveSheet上で動作するので、ActiveSheet上にActiveXオプションボタンがあることは確かですか？また、オプションボタンの名前がコードで使用されているものと同じであることを確認してください。 – sktneer

フォームコントロールでActiveXオプション/ラジオボタンを選択する方法

答えて

関連する問題