【求助】 变量定义的问题

t小宝

把 CommandBar 这些对象用 Object 代替，msoBarPopup 这些常数用实际数值代替就可以了。

   Dim iBar As Object  'CommandBar
    Dim iButton As Object  'CommandBarButton
    Dim iCombo As Object  'CommandBarComboBox
    Set iBar = Application.CommandBars.Add(Name:=("menuTreeView"), Position:=5, Temporary:=True)
    With iBar
        Set iButton = .Controls.Add(Type:=1)
        iButton.Caption = "增加  选定节点子节点(&A)"
        iButton.OnAction = "Get_PopupMenuSelection"
        iButton.Tag = "ADD"
        iButton.FaceId = 240
    End With