pop-up menu 1

[nesplb]

Hi!
I wonder how to add a user defined menu to a pop-up menu..Can anyone help me?

To add a userdefined conrol I use this code:

Set menu1 = CommandBars.Add( _
    Name:="menu1", Position:=msoBarPopup, _
    Temporary:=True)
Set menuItem1 = menu1.Controls.Add
With menuItem1
    .FaceId = CommandBars("Userdefined menu1").Controls(1).ID
    .Caption = CommandBars("Userdefined menu1").Controls(1).Caption
    .OnAction = CommandBars("Userdefined menu1").Controls(1).OnAction
End With

How can I add a userdefined menu to "menu1"?
(See picture for description of a submenu on a popup-menu)

Pål Nesteby

PDC-Tangen
Norway

 

[TonyJollans]

Hi Pål,

You need to define your control as a popup and then it will have its own Controls collection which you can add to. Something like this ..

Set menu1 = CommandBars.Add( _
    Name:="menu1", Position:=msoBarPopup, _
    Temporary:=True)
Set menuItem1 = menu1.Controls.Add

(Type:=msoControlPopup)

With menuItem1

    .Caption = "This has a sub-menu"
    Set submenu1 = .Controls.Add
    With submenu1

        .FaceId = CommandBars("Userdefined menu1").Controls(1).ID
        .Caption = CommandBars("Userdefined menu1").Controls(1).Caption
        .OnAction = CommandBars("Userdefined menu1").Controls(1).OnAction

End With

End With

Enjoy,
Tony

 

[nesplb]

Exactly what I needed!

Thanx!


Pål Nesteby

PDC-Tangen
Norway

 

[michaelbr55]

Tony,
I have been trying to get pop-up menus to work on userforms for a while, I've posted a couple of time but had no responce, I tried your code but keep getting a "Invalid procedure call or argument (Error 5)" message, any idea where I am going wrong. I just pasted your code onto the "Userform1 code form" which contains a text box and set it to run on the mousedown event

like so

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then
Set menu1 = CommandBars.Add( _
    Name:="menu1", Position:=msoBarPopup, _
    Temporary:=True)
Set menuitem1 = menu1.Controls.Add
With menuitem1
    .FaceId = CommandBars("Userdefined menu1").Controls(1).Id
    .Caption = CommandBars("Userdefined menu1").Controls(1).Caption
    .OnAction = CommandBars("Userdefined menu1").Controls(1).OnAction
End With
End If
End Sub
[code]
any help would be apprecitated.

Mike
[pipe]

 

[nesplb]

If you are using word98/2000 I think the problem is the name property in the add function.
In word XP this works fine, but in 98/2000 it doesn't work for some reason.

I just removed the name property and left it open and it worked fine!
like this:

Set menu1 = CommandBars.Add( _
    Position:=msoBarPopup, _
    Temporary:=True)

Pål Nesteby

PDC-Tangen
Norway

 

[nesplb]

As we are talking about pop-up menus....

Does anyone know how to get a line in in the pop-up menu?

The original menu (This is how I want the pop-up to look like):

And this is how the pop up menu looks like:
(I want to insert two thin grey lines as shown above)
The picture property doesn't work in word2000 as far as I know..

thanx

Pål Nesteby

PDC-Tangen
Norway

 

[RoyVidar]

Some time since I did this, but, the menuitem has a begingroup property, which by default is set to False. Set this to true, and you'll get a grey line above this item.

Ie when you set the OnAction, Caption... properties, also do
.BeginGroup=True
for those items you need grouping before.

Roy-Vidar, Also Norway;-)

 

[nesplb]

Thank you Roy-Vidar!
-Nice to see some Norwegians here!



Pål Nesteby

PDC-Tangen
Norway