Problem with CommandBar's msoControlPopup control

sektor · February 18th, 2009, 04:29 AM

I am trying to add my own popup menu into CommandBars("Cell").
The name of menu is successfully created, but I can't add buttons into that menu. AutoComplete shows no Add method. How to solve this problem?

Code:

Sub AddShortCut()
    
    Dim cb As CommandBar
    Dim ct As CommandBarControl
    Dim index As Integer
    
    Set cb = CommandBars("Cell")
    index = cb.Controls("Cut").index
    
    Set ct = cb.Controls.Add(Type:=msoControlPopup, Before:=index)
    ct.Caption = "Bonus"
    
    Call ClearRefs(cb, ct)
    
End Sub


Private Sub ClearRefs(ParamArray refs() As Variant)
    Dim ref As Variant
    For Each ref In refs
        Set ref = Nothing
    Next
End Sub

Shasur · February 18th, 2009, 04:47 AM

Here is a hint

Code:

Sub AddShortCut_V1()
    
    Dim cb As CommandBar
    Dim ct As CommandBarControl
    Dim index As Integer
    Dim cb1 As CommandBarButton
    
    Set cb = CommandBars("Cell")
    index = cb.Controls("Cut").index
    
    
    
    Set ct = cb.Controls.Add(Type:=msoControlPopup, Before:=index)
    ct.Caption = "Bonus"
    
    Set cb1 = ct.Controls.Add(Type:=msoControlButton)
    cb1.Caption = "New Button"
    
    Call ClearRefs(cb, ct)
    
End Sub

Cheers
Shasur

sektor · February 18th, 2009, 05:07 AM

Shasur, thanks a lot!!!!! But I wonder, why the Controls property isn't shown in AutoComplete? And the same thing happens to Cell's properties.