我在excel里面用VBA绘制了一个窗体UserForm1,需要在菜单栏添加一个按钮，单击按钮就弹出UserForm1。

zy774352411级分类：其他被浏览485次2014.02.15

我在excel里面用VBA绘制了一个窗体UserForm1,需要在菜单栏添加一个按钮，单击按钮就弹出UserForm1。 请问怎么实现?

dvin0470

采纳率：57%11级2014.02.16

你是要在Excel的菜单上点击吗?

那样你的添加一个菜单:

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 = "模块1.function1"

Exit Sub

End Sub

以上代码放到thisworkbook里，然后在模块1里添加function1

sub function1()

UserForm1.show

end sub

这样excel启动后会在excel的菜单上新增个菜单Function，点击里边的Function1就可以了