即効テクニック |
サンプルマクロは、アクティヴシートの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