Excel如何将自己设计的窗体放在菜单栏（加载项）中

vba project截图

workbook代码块：

Private Sub Workbook_Open()
Dim TargetBar As CommandBar
Dim NewMenu As Object
Dim NewItem As Object
Dim NewMenuTemp As Object
Set TargetBar = Application.CommandBars("Worksheet Menu Bar")
TargetBar.Visible = True
For Each NewMenuTemp In TargetBar.Controls
If NewMenuTemp.Caption = "Function" Then
Exit Sub
End If
Next
Set NewMenu = TargetBar.Controls.Add(Type:=msoControlPopup, ID:=1, Temporary:=True)
NewMenu.Caption = "Function"
Set NewItem = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True)
NewItem.Caption = "Function 1"
NewItem.OnAction = "模块3.function1"
Exit Sub
End Sub

模块3代码块：

Sub function1()
UserForm3.Show
End Sub

效果截图：