« TicketImportPluginプラグインって | トップページ | ファイルのプロパティに情報を保存するVBA(Project2003) »

2009年5月13日 (水)

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

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

|

« TicketImportPluginプラグインって | トップページ | ファイルのプロパティに情報を保存するVBA(Project2003) »

VBA」カテゴリの記事

コメント

この記事へのコメントは終了しました。

トラックバック


この記事へのトラックバック一覧です: VBAでツールバーのアイコンのIDを調べる:

« TicketImportPluginプラグインって | トップページ | ファイルのプロパティに情報を保存するVBA(Project2003) »