マクロのボタン配置

質問

マクロを実行するボタンをツールバー上に配置したいと考えています。
実行ボタンを配置するのは、マクロを実行するファイルだけに適用させたい。
今はマクロを実行しないファイルにもボタンが配置されています。
また、その実行するファイルを他のパソコンに移動すると、マクロ実行ボタンが現れません。

何か良い方法はありますか？
アドバイスお願いします。

回答No.2

papayuka · ベストアンサー

Excelとして、標準モジュールに

'----------------------------------------------------------------------------
Dim myCmdBar As CommandBar

'開く時に生成
Private Sub Auto_Open()
Dim myButton As CommandBarButton
　　For Each myCmdBar In CommandBars
　　　　If myCmdBar.Name = "myCmdBar" Then
　　　　　 Set myCmdBar = Nothing
　　　　　 Exit Sub
　　　　End If
　　Next myCmdBar
　　Set myCmdBar = CommandBars.Add("myCmdBar")
　　myCmdBar.Visible = True
　　Set myButton = myCmdBar.Controls.Add(Type:=msoControlButton)
　　myButton.Caption = "myButton"
　　myButton.OnAction = "myButtonClick"
　　myButton.FaceId = 274
　　myCmdBar.Visible = True
End Sub

'閉じる時に削除
Private Sub Auto_Close()
　　If Not myCmdBar Is Nothing Then myCmdBar.Delete
End Sub

'ボタン押下で実行するマクロ
Sub myButtonClick()
　　MsgBox "myButtonをクリックしたよ", vbInformation, "マクロ実行"
End Sub

'----------------------------------------------------------------------------

補足

ツールバーを追加することができたのですが、Excelを
閉じるときに削除できません。

If Not myCmdBar Is Nothing Then myCmdBar.Delete

でエラーが発生します。

回答No.3

papayuka

どんなエラー？

お礼

すいません。
Dim myCmdBar As CommandBar
の1行が抜けてました。

回答No.1

merlionXX

> 実行ボタンを配置するのは、マクロを実行するファイルだけに適用させたい。

ならば、ボタンはマクロを実行するファイルのワークシートに配置したらいかがでしょう？それならファイルを他のパソコンに移動しても大丈夫です。

補足

それならば簡単にできるのですが、
使い勝手上、ツールバーに配置させたいのですが・・・