ExcelVBAでオプションボタンの選択状態を取得

質問

ActiveXコントロールのオプションボタンをエクセルのシート上に作成しました。
標準モジュールの中からこのオプションボタンの選択状態を取得したいと思い、下記のようなコードを書きました。
opt1の中身を見たところValueプロパティがなくオプションボタンの選択状態をどう判別すればよいかわかりません。教えていただけますでしょうか。

Set mainSheet = Worksheets("main")
Set opt1 = mainSheet.OLEObjects("OptionButton1")

※シート名:main
オブジェクト名:OptionButton1

回答No.2

dell_OK · ベストアンサー

直接、シートオブジェクト名.OptionButton1.Valueで取得する方法はどうでしょうか。
シートオブジェクト名と言うのは、シート名とは異なります。
意図的に同じにしていれば同じですけれども。
プロジェクトウィンドウのツリーに、シートオブジェクト名（シート名）となっていると思います。
プロパティウィンドウでも確認できると思います。

お礼

ご回答ありがとうございました。
opt1.Object.Valueとすることで選択状態を取得することができました。
ご回答いただきました方法も試してみたいおもいます。

回答No.1

kkkkkm

Set mainSheet = Worksheets("main")
Set opt1 = mainSheet.OLEObjects("OptionButton1")
Debug.Print opt1.Object.Value

もしくは

Set mainSheet = Worksheets("main")
Set opt1 = mainSheet.OptionButton1
Debug.Print opt1.Value

で試してみてください。

お礼

ご回答ありがとうございます。
opt1.Object.Valueとすることで選択状態を取得することができました。