Excel VBA質問箱 IV

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

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


73454 / 76732 ←次へ | 前へ→

【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 質問
【7757】Re:BOOKの×印で閉じると同時に自作ツールバ... Jaka 03/9/17(水) 11:30 回答
【7800】Re:BOOKの×印で閉じると同時に自作ツールバ... とろろこんぶ 03/9/18(木) 13:06 お礼

73454 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free