Excel VBA テクニック集
コマンドバーオブジェクト一覧

    Dim Cmd_Obj as Object
    For Each Cmd_Obj In CommandBars
	Debug.Print "番号",Cmd_Obj.Index
	Debug.Print "名称１",Cmd_Obj.Name
	Debug.Print "名称２",Cmd_Obj.NameLocal
        Select Case Cmd_Obj.Type
            Case 0
                Debug.Print "タイプ","ツールバー"
            Case 1
                Debug.Print "タイプ","メニューバー"
            Case 2
                Debug.Print "タイプ","ショートカットメニュー"
            End Select
        Next