|
こんにちは。
質問です。
あるマクロの入ったBOOK1があります。
このマクロの入ったBOOK1を開くと
自作のツールバーが自動的に出てきます。
このBOOK1を閉じるときに、
自作のツールバーも自動的に消すことは可能でしょうか?
わかる方がいらっしゃれば教えてください。
ちなみに・・・
自作ツールバーは、
(Module1)
Sub AddCmdBar()
Dim myCB As CommandBar
On Error Resume Next
CommandBars("MyMacro").Delete
Set myCB = Application.CommandBars.Add(Name:="MyMacro")
With myCB
.Controls.Add Type:=msoControlButton, ID:=2520, Before:=1
.Controls.Add Type:=msoControlButton, ID:=23, Before:=2
.Controls.Add Type:=msoControlButton, ID:=3, Before:=3
.Visible = True
End With
End Sub
自動的にツールバーを出すのはこんなかんじで作りました。
(オブジェクトのThisBook)
Private Sub Workbook_Open()
AddCmdBar 'BOOK1を開いたときにツールバーを出す
End Sub
|
|