VBAの勉強を始めてみた

タイトルの通りVBAの勉強を始めました。若干の発達障害があり、読みづらく分かりづらい点が多々あるかもしれませんが、ご了承下さい。

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

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

 

***************************************
  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までをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。