VBAでツールバーのアイコンのIDを調べる

追加するツールバーのアイコンを調べるには，まず手動でツールバーとアイコンを追加し，ツールバーの設定が開いている状態でボタンを右クリックし，アイコンを変更する．次のマクロを追加し，実行するとイミディエイトに表示される．

Private Sub check()
    Dim objBar As CommandBar
    Dim objBtn As CommandBarButton
    Set objBar = CommandBars.Item("Trac-Project連携")
    Set objBtn = objBar.Controls.Item("取り込み")
    Debug.Print objBtn.FaceId
End Sub

ここでの表示が2109だったとして追加するには

Private Sub projectopen()
    Project_Open Application.ActiveProject
End Sub

Private Sub Project_Open(ByVal pj As Project)
    Dim objBar As CommandBar
    Dim objBtn As CommandBarButton
    On Error GoTo err1
    Set objBar = CommandBars.Add(name:="Trac-Project連携")
    objBar.Visible = True
   
    Set objBtn = objBar.Controls.Add
    objBtn.FaceId = 2109
    objBtn.Style = msoButtonIconAndCaption
    objBtn.Caption = "取り込み"
    objBtn.TooltipText = "Tracに接続してチケットを取り込みます"
    objBtn.OnAction = "Macro ""Trac.mpp!init"""
    objBtn.Visible = True
   
    Exit Sub
err1:
    Exit Sub
End Sub

使用したアプリ：MS-Project 2003

参照ページ：新しいツールバーを作る