エクセルVBAでOptionButtonのオンオフ取得

質問

ワークシート上に貼り付けてあるオプションボタンの状態の取得ですが、フォームのオプションボタンなら
例えば、
MsgBox ActiveSheet.OptionButtons("Option Button 44").Value　で、オンなら1、オフなら-4146が返ります。
またActiveSheet.OptionButtons("Option Button 44").Value=xlOnで　オンに出来ます。

ところがフォームじゃないコントロールツールボックスのオプションボタンは
MsgBox ActiveSheet.Shapes("OptionButton30").Valueでも
MsgBox ActiveSheet.Controls("OptionButton30").Valueでもエラーになります。
どうやって取得すればいいのでしょうか？
どうやてOn　Off　を指示すればいいのでしょうか？

回答No.1

shut0325 · ベストアンサー

同一ワークシート内にオプションボタン１つ、コマンドボタン一つを配置して、コマンドボタンに、現在のオプションボタンの値をＭＳＧＢＯＸで表示させ、その後OFF（False)にするようなサンプルを作って、Excel2000で試してみました。

Private Sub CommandButton1_Click()
MsgBox OptionButton1.Value
OptionButton1.Value= False
End Sub

というコードです。
とりわけ問題なく動作しました。
ＬｉｎｋＣｅｌｌを指定するかどうか、複数配置かどうかで微妙に動作が異なるようです。

参考までに。

お礼

さっそく有難うございます。
助かりました。

回答No.2

imogasi

Private Sub OptionButton1_Click()
MsgBox "aaa"
MsgBox OptionButton1.Value
OptionButton1.Value = False
End Sub
これをコード内にポイントして、そのままF5で実行します。
FALSEかTRUEと表示されます。
シートのボタンをクリックすると、FALSEかTRUEと表示されます。
これで判ります。
（１）xlOn,xlOff
（２）０、－１，１
（３）TRUE,FALSE
などやってみるのが要領か？

お礼

有難うございます。
よくわかりました。