即効テクニック

メニューバー・ツールバー関連のテクニック

コマンドバーの一覧表を作成する

(Excel 97/2000)
サンプルマクロは、アクティヴシートのAからC列に各コマンドバーの情報を出力します。
Sub Sample()

    Dim myCmdBar As CommandBar
    Dim myRow As Long
    Dim myCell As Range
    
    Application.ScreenUpdating = False
    
    Range("A1:C1").Value = Array("番号", "インデックス", "概要")
    
    myRow = 1
    For Each myCmdBar In CommandBars
        myRow = myRow + 1
        With myCmdBar
        Set myCell = Cells(myRow, 1)
            myCell.Value = .Index
            myCell.Offset(, 1).Value = .Name
            myCell.Offset(, 2).Value = .NameLocal
        End With
    Next

    Columns("A:C").AutoFit
    
    Application.ScreenUpdating = True

End Sub