エクセル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 回答日時： 2007/08/22 17:14

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

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

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

参考までに。

この回答へのお礼

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

お礼日時：2007/08/22 17:29

No.2 回答者： imogasi 回答日時： 2007/08/22 17:21

Private Sub OptionButton1_Click()

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

この回答へのお礼

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

お礼日時：2007/08/22 17:29