Excel ツールバー

（対象）Excel　VBA
（確認）Excel2003


今回は自分で作るツールバーについてです。


マクロを作成した時、実行するために一番簡単なのは
VBAの画面でF5かF8を押すことですね。

その次はシートにボタンを作ってマクロを登録すること
でしょうか。


でもこう思うことはありませんか？

「どこのシートにいてもマクロを実行出来るようにしたい」

と。


ツールバーを使用すればそんな悩みは即解決してしまいますね。
作り方としては以下の通りになります。


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　　'============================================
　　'ツールバーの設置
　　'============================================
　　Sub ToolBarOn()
　　　Dim myBar　　　   As CommandBar　　　　'ツールバー
　　　Dim MyButton　　 As CommandBarButton　'ツールバーのボタン
　　　Dim CB　　　　　As Variant　　　　　　'ツールバーの確認用
　　　Dim BCaption(1)　As String　　　　　　'表示文字列
　　　Dim BAction(1)　  As String　　　　　　'登録するマクロ
　　　Dim BText(1)　　 As String　　　　　　'ボタンにカーソル当てた時の説明文
　　　Dim BFace(1)　   As Integer　　　　　　'ボタンに使うアイコン
　　　Dim I　　　　　   As Long　　　　　　　'登録数分回すFor-Next用

　　　'■表示文字列の設定
　　　BCaption(0) = " 表示文字１　"
　　　BCaption(1) = " 表示文字２　"
　　　
　　　'■登録アクション（マクロ）設定＝プロシージャ名
　　　BAction(0) = "ACT1"
　　　BAction(1) = "ACT2"

　　　'■説明文の設定
　　　BText(0) = "ボタンにカーソル当てた時の説明が入るよ"
　　　BText(1) = "ボタンにカーソル当てた時の説明が入るよ"

　　　'■フェイスIDの設定（一覧）
　　　BFace(0) = 50
　　　BFace(1) = 300
　　　
　　　'■すでに同名のツールバーが存在する場合は削除
　　　Set myBar = CommandBars.Add
　　　For Each CB In CommandBars
　　　　　If CB.Name = "動作" Then
　　　　　　　CommandBars("動作").Delete
　　　　　　　Exit For
　　　　　End If
　　　Next

　　　'■ツールバーの名前を設定
　　　myBar.Name = "動作"
　　　myBar.Position = msoBarTop
　　　

　　　'■ツールバー作成（I = 登録するボタンの数）
　　　For I = 1 To 2
　　　　　Set MyButton = myBar.Controls.Add
　　　　　With MyButton
　　　　　　　.BeginGroup = True　　’ボタンとボタンの境界線
　　　　　　　.Style = msoButtonIconAndCaptionBelow　'※
　　　　　　　.Caption = BCaption(I - 1)
　　　　　　　.OnAction = BAction(I - 1)
　　　　　　　.TooltipText = BText(I - 1)
　　　　　　　.FaceId = BFace(I - 1)
　　　　　End With
　　　Next 

　　　'■ツールバーの設置
　　　myBar.Visible = True
　　End Sub



　　'============================================
　　'ツールバーの排除
　　'============================================
　　Sub ToolBarOff()
　　　　Dim myBar As CommandBar
　　　　Dim CB　　　　As Variant

　　　　For Each CB In CommandBars
　　　　　　If CB.Name = "動作" Then
　　　　　　　　CommandBars("動作").Delete
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


これを実行するとツールバーが作成されます。

以前ご紹介した「ブックの開閉時の動作」に組み合わせると、
開いた時にツールバーを設置し、閉じる時に削除するという
動作が可能になります。


ちなみに、プログラム中の「※」部分についてですが、
ここを変更するとツールバーの表示のされ方が変わります。


下図がその結果です。

もしかしたらやり方がおかしくて上手くなってないところも
あるかもしれませんが。







以上、ツールバーを作ってみようでした。