方法showpopup作用于对象'commandbar'时失败

linshanshan_3

在运行下以代码时会出现  
"""""方法showpopup作用于对象'commandbar'时失败""""运行错误.但我又不知道错在哪.就只是想做一个窗体控件的快捷菜单而已.
呜~可就是说运行错误.各位大侠,帮帮我吧.谢谢

对了，现在运行，我点击“上班”或“下班”。提示找不到宏。奇怪~

Private Sub CommandButton2_Click()
    On Error Resume Next
    CommandBars("mytempcontrol").Delete
    On Error GoTo 0
    Set mycombutton = CommandBars.Add("mytempcontrol", msoBarPopup, False, True)
    With mycombutton.Controls.Add(Type:=msoControlButton)
        .Caption = "上班"
        .OnAction = "上班"
    End With
    With mycombutton.Controls.Add(Type:=msoControlButton)
        .Caption = "下班"
        .OnAction = "下班"
    End With
    mycombutton.ShowPopup
End Sub
Private Sub userform_terminate()
    On Error Resume Next
    CommandBars("mytempcontrol").Delete
    On Error GoTo 0
End Sub
Public Sub 上班()
    上班窗体.Show
End Sub
Public Sub 下班()
    下班窗体.Show
End Sub

[ 本帖最后由 linshanshan_3 于 2010-4-26 11:12 编辑 ]

transnote

这个这么多年了还没有人知道吗？

isolate1

窗体要在工作表界面才能不会出错

如果窗体运行后 停在VBE 界面就会出现那个错误