12,665
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
*[[Excel VBA 正規表現を使う|正規表現を使う]]
*[[Excel VBA GUIDを生成する|GUIDを生成する]]
=====アイコンを表示=====
<pre>
Private Const MY_APP_FILE_MK As String = "ツールバー名" 'ツールバー名
Private Const BTN_MY_APP_FILE_MK As String = "ボタン名" 'ボタン名
'
'ToolBarをセット
'
Private Sub loadToolBar()
Dim cbrGatherImgs As CommandBar
Dim btnGetImages As CommandBarButton
On Error Resume Next
' コマンド バーが既に存在するかどうかを確認します。
' Set cbrGatherImgs = CommandBars(MY_APP_FILE_MK)
' コマンド バーが存在しない場合は作成します。
If cbrGatherImgs Is Nothing Then
Err.clear
Set cbrGatherImgs = CommandBars.add(MY_APP_FILE_MK)
' コマンド バーを表示します。
cbrGatherImgs.Visible = True
' ボタン コントロールを追加します。
Set btnGetImages = cbrGatherImgs.Controls.add
With btnGetImages
.Style = msoButtonIconAndCaption
.Caption = BTN_MY_APP_FILE_MK
.Tag = BTN_MY_APP_FILE_MK
' ボタンがクリックされたときに実行するプロシージャを指定します。
.OnAction = "warpExpMain"
.FaceId = 270&
End With
Else
' 既存のコマンド バーを表示します。
cbrGatherImgs.Visible = True
End If
End Sub
'
'ToolBarを削除
'
Private Sub unloadToolBar()
'On Error Resume Next
On Error GoTo errHandler
' 存在するコマンド バーを削除します。
CommandBars(MY_APP_FILE_MK).Delete
Exit Sub
errHandler:
'NOP
End Sub
</pre>
====マクロサンプル====
*[[Microsoft Project から Excelに吐き出したタスクの見栄えをちょっと整えるマクロ]]
© 2006 矢木浩人
