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

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

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

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

No.2 ベストアンサー 回答者： sakenomo 回答日時： 2003/10/21 19:17

＃１です。

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

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

この回答へのお礼

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

お礼日時：2003/10/22 14:26

No.3 回答者： ja7awu 回答日時： 2003/10/21 19:20

オプションボタンは、

x = ActiveSheet.OptionButtons.Count

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

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

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

この回答へのお礼

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

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

お礼日時：2003/10/22 14:27

No.1 回答者： sakenomo 回答日時： 2003/10/21 19:10

こんなかんじでしょうか。

詳しくは、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