エクセルでグループボックスを非表示にしたい

エクセルで、オプションボタンを使用しアンケートのようなものを作成しています。
この場合のオプションボタンは、フォームツールバーの方です。
そこで、オプションボタンを幾つかのグループに分けているのですが、
グループボックスを使用しています。
このとき、グループボックスを表示させないようにすることはできないのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： pauNed 回答日時： 2007/06/23 23:15

こんにちは。

できますよ^ ^

ActiveSheet.GroupBoxes.Visible = False

最近似たような件に関わったので、何か参考になれば。
http://excelfactory.net/excelboard/excelvba/exce …

この回答へのお礼

ありがとうございます。
やってみたら出来ました。
助かりました(^o^)

お礼日時：2007/06/24 19:36

No.2 回答者： imogasi 回答日時： 2007/06/24 16:03

エクセルで

オプションボタン
表示ーツールバーで
　　（１）フォーム
　　（２）コントロールツールボックス
のフォームの方のオプションボタンを
　　ワークシートに直接
　　ウーザーフォームの上で
どちらかで、質問者は貼り付けているのでしょう。
（１）のフォームの場合は、操作でもグループ化はグレイアウトして
していさせてくれません。
プロパティでグループ化するコードがあるかどうか、無いようですが私のエクセルがおかしいのか？、はわかりません。
質問のグループボックスというコントロールをどこからか持ってきて、貼り付けているのでしょうが（私の２００２エクセルではグループボックスは出てこない）、そちらのプロパティに、フレーム線のＶｉｓｉｂｌｅプロパティや線を消すプロパティ指定は見つかりませんか。キャプションもなしにするのもありませんか。
ーー
オプションボタンの目玉の丸がはっきりしているのが、魅力的でしょうか。
ーー
（２）のコントロールツールボックスのオプションボタンを選んで貼り付けると、コードでやる一例
Sub test10()
For i = 1 To 3
Worksheets("Sheet3").OLEObjects.Add("Forms.OptionButton.1").Select
Selection.Left = 400
Selection.Top = 100 + i * 50
Selection.Width = 50
Selection.Height = 10
Next i
End Sub
ーー
ＧｒｏｕｐＮａｍｅプロパティの指定で、例えば
Sub test08()
Worksheets("Sheet3").OptionButton1.GroupName = "G1"
Worksheets("Sheet3").OptionButton2.GroupName = "G1"
Worksheets("Sheet3").OptionButton3.GroupName = "G2"
Worksheets("Sheet3").OptionButton4.GroupName = "G2"
End Sub
上２つ、下２つのオプションボタンの中で連動して排他的にＯＮ／ＯＦＦになりました。
グループ化したことを示す枠などもちろんなしです。
見出し等　例えば
Sub test09()
Worksheets("Sheet3").OptionButton1.Caption = "男性"
Worksheets("Sheet3").OptionButton2.Caption = "女性"
Worksheets("Sheet3").OptionButton3.Caption = "本社"
Worksheets("Sheet3").OptionButton4.Caption = "支社"
End Sub
で設定して、区別させる。
性別・勤務地などの見出し的なものは別コントロールで対処。
ご存知の謙かもしれないし、質問での希望の正面回答でなくてすみませんが、参考になれば。
ーー
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr; …
などにどちらを使うべきか議論されていますが。

この回答へのお礼

非常に細かくありがとうございます。
でも私には難しすぎました(^^ゞ
また勉強して理解できるように頑張ります。

お礼日時：2007/06/24 19:35