Office 2007中VBA开发遇到的问题
这是个右键菜单的函数。运行到oPopup.ShowPopup时会弹出如下错误。请问这是怎么回事？谢谢！
Public Sub ShowRightMenue()
Dim oPopup As CommandBar
Dim oSubMenu As CommandBarPopup
Dim oMenuItem As CommandBarControl
Cancel = True
On Error Resume Next
CommandBars("myRightMenu").Delete
On Error GoTo 0
Set oPopup = CommandBars.Add("myRightMenu", msoBarPopup)
Set oSubMenu = oPopup.Controls.Add(msoControlPopup)
oSubMenu.Caption = "一级子菜单1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-3"
Set oSubMenu = oPopup.Controls.Add(msoControlPopup)
oSubMenu.Caption = "一级子菜单2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-3"
oPopup.ShowPopup
oPopup.Delete
End Sub
[解决办法]
把
oPopup.ShowPopup
改成
Application.CommandBars("myRightMenu").ShowPopup
看看
