VBAでオプションボタンなどそれぞれの数を調べたい

質問

エクセル９７です。
ワークシート上にテキストボックス、コンボボックス、オプションボタン、ラベルが配置されています。
すべて、ツールバーのフォームから出したものです。
これら全部の数をもとめるには

Sub TEST()
Dim x As Integer
x = ActiveSheet.Shape.Count
MsgBox x
End Sub

これで出てきますし、テキストボックスならshapesをTextboxes、ラベルならLabelsに変えればいいのですが、オプションボタンやコンボボックスの場合、どう変えれば良いのかわかりません。教えてください。特にオプションボタンは数が多くて困っています。

回答No.2

sakenomo · ベストアンサー

＃１です。

すみません。ワークシートに普通の図形があると、エラーになりますね。修正しました。

Sub test2()
For Each obj In ActiveSheet.Shapes
If obj.Type = msoFormControl Then
Select Case obj.FormControlType
Case xlButtonControl
b = b + 1
Case xlCheckBox
c = c + 1
Case xlDropDown
g = g + 1
Case xlOptionButton
o = o + 1
End Select
End If
Next obj
MsgBox "ボタン " & b & Chr(13) & _
"チェックボックス " & c & Chr(13) & _
"コンボ（ドロップダウン）ボックス　" & g & Chr(13) & _
"オプションボタン " & o
End Sub

お礼

ありがとうございました！
完璧です！！
助かりました。

回答No.3

ja7awu

オプションボタンは、
x = ActiveSheet.OptionButtons.Count

コンボボックスは、
x = ActiveSheet.DropDowns.Count

で如何でしょうか。
これらは、隠しオブジェクトですね。

なお、提示のコードで
x = ActiveSheet.Shape.Count は、
x = ActiveSheet.Shapes.Count でないでしょうか。

お礼

> 提示のコードで
> x = ActiveSheet.Shape.Count は、
> x = ActiveSheet.Shapes.Count でないでしょうか。

すみません、その通りです。
ありがとうございました。

回答No.1

sakenomo

こんなかんじでしょうか。
詳しくは、FormControlTypeのヘルプをご覧ください。

Sub test()
For Each obj In ActiveSheet.Shapes
Select Case obj.FormControlType
Case xlButtonControl
b = b + 1
Case xlCheckBox
c = c + 1
Case xlDropDown
g = g + 1
Case xlOptionButton
o = o + 1
End Select
Next obj
MsgBox "ボタン " & b & Chr(13) & _
"チェックボックス " & c & Chr(13) & _
"コンボ（ドロップダウン）ボックス　" & g & Chr(13) & _
"オプションボタン " & o
End Sub