Excel VBA コマンドバーのボタンイメージ FaceIDを取得する

Sub アイコン()
Dim コマンドバー As CommandBar
Dim コントロール As CommandBarControl
Dim i As Integer
On Error Resume Next
Application.CommandBars("FaceId").Delete
Set コマンドバー = Application.CommandBars.Add(Name:="FaceId", Temporary:=True)
For i = 1 To 27964
Application.StatusBar = "実行中..." & Left(String(Int(i / 27964 * 10), "■") & String(10, "□"), 10)
Set コントロール = コマンドバー.Controls.Add(Type:=msoControlButton, Temporary:=True)
With コントロール
.FaceId = i
.TooltipText = i
End With
Next
コマンドバー.Visible = True
Application.StatusBar = False
MsgBox "処理が終了しました。"
End Sub

3行目【Dim コントロール As CommandBarControl】
コマンドバーのコントロールを表すCommandBarControl【ｺﾏﾝﾄﾞﾊﾞｰｺﾝﾄﾛｰﾙ】オブジェクトを格納する変数「コントロール」をオブジェクト型(CommandBarControl)で宣言します。

4行目【Dim i As Integer】
ボタンアイコンのID（番号）を格納するカウンタ―変数「i」を整数型(Integer)で宣言します。

5行目【On Error Resume Next】
次の行6行目でCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドで「FaceID」という名前のCommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトを削除する命令をだしますが、対象オブジェクトが存在しない場合、エラーが発生してデバックモードになってしまうのでOn Error【ｵﾝｴﾗｰ】ステートメントのResume Next【ﾘｽﾞｰﾑﾈｸｽﾄ】ステートメントを使用してエラーを無視して処理を続行させます。

6行目【Application.CommandBars(“FaceId”).Delete】
次の7行目でコマンドバーを追加しますが、既に同じ名前のコマンドバーが存在しているとエラーになるので
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのCommansBars【ｺﾏﾝﾄﾞﾊﾞｰｽﾞ】プロパティで名前が「FaceID」のCommandBarオブジェクトを参照して存在する場合は削除します。

8行目【Set コマンドバー = Application.CommandBars.Add(Name:=”FaceId”, Temporary:=True)】
CommandBars【ｺﾏﾝﾄﾞﾊﾞｰｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用してコマンドバーを追加してオブジェクト変数に「コマンドバー」に代入します。引数Temporary【ﾃﾝﾎﾟﾗﾘ】にTrueを設定してExcelの終了時に追加したコマンドバーを削除する設定にします。

9行目【For i = 1 To 27964】
For【ﾌｫｰ】ステートメントで繰り返し処理の始まりです。カウンタ―変数の「i」に繰り返し処理の中で順次1～27964の値を代入します。27964はアイコンの数です。

10行目【Application.StatusBar = “実行中…” & Left(String(Int(i / 27964 * 10), “■”) & String(10, “□”), 10)】
約3万回の繰り返し処理になり少し時間がかかるので、進捗状況をステータスバーに表示します。コードの解説は時間のかかるマクロの進捗状況を表示するをご覧ください。

11行目【Set コントロール = コマンドバー.Controls.Add(Type:=msoControlButton, Temporary:=True)】
CommandBarControls【ｺﾏﾝﾄﾞﾊﾞｰｺﾝﾄﾛｰﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して
コマンドバーにコントロールを追加します。引数Type【ﾀｲﾌﾟ】にコントロールのタイプを「ボタン」に設定してオブジェクト変数の「コントロール」に代入します。

12行目【With コントロール】
Add【ｱﾄﾞ】メソッドで追加したCommandBarBotton【ｺﾝﾄﾛｰﾙﾊﾞｰﾎﾞﾀﾝ】オブジェクトが代入されているオブジェクト変数「コントロール」をWith【ｳｨｽﾞ】ステートメントで指定します。

13行目【.FaceId = i】
With【ｳｨｽﾞ】ステートメントで指定したCommandBarControl【ｺﾏﾝﾄﾞﾊﾞｰｺﾝﾄﾛｰﾙ】オブジェクトを表すオブジェクト変数「コントロール」のFaceID【ﾌｪｲｽｱｲﾃﾞｨ】プロパティにアイコン番号を表すカウンタ―変数「i」を設定します。

14行目【.TooltipText = i】
ポップアップヒントを表すTooltipText 【ﾂｰﾙﾁｯﾌﾟﾃｷｽﾄ】にIDを変数「i」で設定します。

17行目【コマンドバー.Visible = True】
CommandBar【ｺﾏﾝﾄﾞﾊﾞｰ】オブジェクトのVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティで作成したコマンドバーを表示します。

18行目～19行目【Application.StatusBar = False
MsgBox “処理が終了しました。”】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのStatusBar【ｽﾃｰﾀｽﾊﾞｰ】プロパティにFalseを設定して進捗状況を表示したステータスバーを非表示にしてMsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してメッセージを表示します。