コントロールのタイプを取得したい場合

質問

Sub test()
Dim i As Integer
Dim StrFormName As String

StrFormName = "UserForm1"
With UserForms.Add(StrFormName).Controls
For i = 0 To .Count - 1
Debug.Print .Item(i).Name　
Next
End With

End Sub

これでエクセルのユーザーフォーム上のすべてのコントロール名が取得できるのですが、
コントロールのタイプを取得したい場合、
Debug.Print .Item(i).Name　
の部分をどう変えればいいのでしょうか？

例えばコマンドボタンなら、「CommandButton」と返ってきてほしいです。

Debug.Print .Item(i).Controlstype
でも
Debug.Print .Item(i).Controltype
でもエラーになりました。

回答No.1

NotFound404 · ベストアンサー

Debug.Print .Item(i).Name, TypeName(.Item(i))
としてみてください。

お礼

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