コマンドバーのコントロールって全部で何個あるの？

質問

全部一覧にして書き出してみたいのですが
エラーを無視してる為、最高いくつあるのかわかりません。

Sub tes()
Dim myBar As CommandBar
Dim myCmd As String
Dim blYes As Boolean
Dim i As Long

myCmd = "test"

For Each myBar In CommandBars
If myBar.NameLocal = myCmd Then
blYes = True
'既にmyCmdがあるのなら削除する
Application.CommandBars("test").Delete
Exit For
End If
Next

Set myBar = CommandBars.Add(Name:="test")
On Error Resume Next
For i = 1 To 2000
myBar.Controls.Add ID:=i
Next i

myBar.Visible = True

Set myBar = Nothing
End Sub

回答No.2

keithin · ベストアンサー

＞コマンドバーのコントロールって全部で何個あるの？

何について調べようとしているのかは、理解してるモノとします。

＞全部一覧にして書き出してみたい

その通りにやってみます。

sub macro1()
　dim cb as commandbar
　dim cbc as commandbarcontrol
　dim n as long

　for each cb in application.commandbars
　　for each cbc in cb.controls
　　　n = n + 1

　　　cells(n, "A") = cb.index
　　　cells(n, "B") = cb.namelocal
　　　cells(n, "C") = cbc.index
　　　cells(n, "D") = cbc.caption
　　next
　next
end sub

お礼

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

回答No.1

qy8ls3pt7

Excelなら、

「リボン」
→「Excelのオプション(I)」
→「Excelのオプション」ダイヤログの左側「ユーザ設定」クリック
→「コマンドの選択(C)」プルダウンで「すべてのコマンド」を選択

で、すべてのコマンドが出てきます。

お礼

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