EXCELオプションボタンのグループ線非表示

Sub test()

Dim grp As Variant

excel2000

でフォームのオプションボタンを多数設置しており、グループボタンの線をまとめて

非表示にしようと、下記コードでやってみたところ、反応がありません。

どこをどう修正すれば、いいかアドバイスいただけないでしょうか？

よろしくお願いいたします。


For Each grp In Workbooks


If grp.Name Like "グループ*" Then


ActiveSheet.Shapes(grp).Visible = False

End If

Next grp
End Sub

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/09/28 01:43

ざっくりこんなカンジで。

sub macro1()
　dim s as shape
　dim w As worksheet
　on error resume next

　set w = activesheet
’for each w in worksheets
　for each s In w.shapes
　if s.formcontroltype = xlgroupbox then
　　s.visible = false
　end if
　next
’next
end sub

この回答へのお礼

迅速な回答ありがとうございます。

とても助かります。

ありがとうございました。

お礼日時：2011/09/28 02:03