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 · ベストアンサー

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

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

お礼

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

とても助かります。

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