Excel VBA質問箱 IV

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

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


68373 / 76734 ←次へ | 前へ→

【12899】Re:参考までに教えてください。
回答  IROC  - 04/4/19(月) 13:36 -

引用なし
パスワード
   サンプルです。


[標準モジュール]

Sub Test1()
  MsgBox "Test1 です。"
End Sub

Sub Test2()
  MsgBox "Test2 です。"
End Sub


[ThisWorkbookモジュール]

Private Sub Workbook_Open()
Dim myCB As CommandBar
Dim myCBCtrl As CommandBarControl

On Error Resume Next
  'まず初期化
  Application.CommandBars("Worksheet Menu Bar").Reset
   
  '対象とするメニューを変数にセット
  Set myCB = Application.CommandBars("Worksheet Menu Bar")
  
  '追加するメニュー(Sample1 というポップアップメニュー)
  Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
    myCBCtrl.Caption = "Sample1"
    'myCBCtrl.BeginGroup = True '区切り線
    

  'Sample1のメニューに追加するボタン1
  Set myCBCtrl = myCB.Controls("Sample1").Controls.Add(Type:=msoControlButton)
    myCBCtrl.Caption = "てすと1"
    myCBCtrl.OnAction = "Test1"
  
  'Sample1のメニューに追加するボタン2
  Set myCBCtrl = myCB.Controls("Sample1").Controls.Add(Type:=msoControlButton)
    myCBCtrl.Caption = "てすと2"
    myCBCtrl.OnAction = "Test2"

  Set myCB = Nothing
  Set myCBCtrl = Nothing

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.CommandBars("Worksheet Menu Bar").Reset
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
  Application.CommandBars("Worksheet Menu Bar").Controls("Sample1").Visible = True
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
  Application.CommandBars("Worksheet Menu Bar").Controls("Sample1").Visible = False
End Sub

2 hits

【12890】参考までに教えてください。 シェフチェンコ 04/4/18(日) 21:23 質問
【12891】Re:参考までに教えてください。 IROC 04/4/19(月) 11:09 回答
【12897】Re:参考までに教えてください。 シェフチェンコ 04/4/19(月) 12:40 発言
【12898】Re:参考までに教えてください。 ichinose 04/4/19(月) 13:06 発言
【12899】Re:参考までに教えてください。 IROC 04/4/19(月) 13:36 回答

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