コマンドバーコントロール（Cell）のリスト表示

右クリック時のショートカットメニューにマクロを登録する際、上から何番目にメニューを配置するか指定できますが、EXCELの標準で隠されたメニューなどがあるため、正しい順番が分からないことがあります。
その際には下記のマクロで右クリック(Cell用）ショートカットメニューのすべてをリスト表示することができます。これはマイクロソフトのヘルプページにあるコマンドバーのリスト化のマクロをCell用に改良したものです。実行すると、A1～C1列にリストが表示されるので、何もない空白のSheetなどで実行してください。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Sub Cell用コマンドバーコントロールの情報を取得()
      Dim i As Integer

      For i = 1 To Application.CommandBars("Cell").Controls.Count
          'インデックス番号の取得
          Cells(i, 1) = Application.CommandBars("Cell").Controls(i).Index
          'Cell用コマンドバーコントロールの名前の取得
          Cells(i, 2) = Application.CommandBars("Cell").Controls(i).Caption
          'Cell用コマンドバーコントロールの種類の取得
          Select Case Application.CommandBars("Cell").Controls(i).Type
          Case 1
              Cells(i, 3) = "msoControlButton"
          Case 10
              Cells(i, 3) = "msoControlPopup"
          End Select
      Next
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊