コマンドバーのリスト表示

以下はコマンドバー（コマンドバーコントロールの上位階層にあたるもの）の一覧をリスト表示するコードです。マイクロソフトのヘルプページにあるものです（使い勝手のいいよう少し改良しました）。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
  Sub GetCommandbarInfo()
      Dim AppCmdBar As CommandBar
      Dim i As Integer
      i = 0
      For Each AppCmdBar In Application.CommandBars
          i = i + 1
          'インデックス番号の取得
          Cells(i, 1) = AppCmdBar.Index
          'コマンドバーの名前の取得
          Cells(i, 2) = AppCmdBar.Name
          'コマンドバーの種類の取得
          Select Case AppCmdBar.Type
          Case 0
              Cells(i, 3) = "msoBarTypeNomal"
          Case 1
              Cells(i, 3) = "msoBarTypeMenuBar"
          Case 2
              Cells(i, 3) = "msoBarTypePopup"
          End Select
      Next AppCmdBar
  End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。