ソフトはVisualStudio2017を使用しています。
プロジェクトはVisualBasicのExcel2013と2016VSTOアドインを設定。
動作確認はExcel2013で行っています。
VBEのコマンドバーに"NewMenu"が追加され、その中に"TestMethod"が存在することは確認しています。
"TestMethod"をクリックしても"Hoge"は実行されません。
VisualStudio2017側で"Public Sub Hoge()"部分にブレークポイントをセットしましたが反応はありませんでした。
原因もしくは解決策をご存じの方はご教授願います。
Imports Microsoft.Office.Core
Module Module_Test
Private Const menu_tag As String = "NewMenu"
Public Sub Test_Add()
Call Test_Delete()
Dim mnu As CommandBar = Globals.ThisAddIn.Application.VBE.CommandBars(1)
Dim root As CommandBarPopup = mnu.Controls.Add(Type:=10)
root.Caption = menu_tag
root.Tag = menu_tag
Dim submnu As CommandBarControl = root.Controls.Add
With submnu
.Caption = "TestMethod"
.BeginGroup = False
.OnAction = "Hoge"
End With
End Sub
Public Sub Test_Delete()
Dim mnu As CommandBarControl = Globals.ThisAddIn.Application.VBE.CommandBars.FindControl(Tag:=menu_tag)
Do Until mnu Is Nothing
mnu.Delete()
mnu = Globals.ThisAddIn.Application.VBE.CommandBars.FindControl(Tag:=menu_tag)
Loop
End Sub
Public Sub Hoge()
MsgBox("Hoge")
End Sub
End Module