Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73529 / 76807

←次へ　｜　前へ→


	【7753】BOOKの×印で閉じると同時に自作ツールバーを消すには？

とろろこんぶ - 03/9/17(水) 11:10 -


	引用なし

	パスワード

こんにちは。
質問です。

あるマクロの入った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

0 hits

▼

【7753】BOOKの×印で閉じると同時に自作ツールバーを消すには？ とろろこんぶ 03/9/17(水) 11:10

≪