#1
|
|||
|
|||
Adding a pop-up (cascading) menu to existing commandbar
This is probably a very noobie question, but I am trying to find sample code for adding a msoControlPopup to an existing Pop-up. In orderwords, a 3rd level. I am not sure how the previous programmer created the custom menu, and most of the example I have search for haven't been helping me. I am guessing it is something like this: Code:
Set CB = ActiveDocument.CommandBars("TEST") For Each CBCtrl In CB.Controls If CBCtrl.Type = msoControlPopup Then Set CBP = CB.Controls(CBCtrl.Index) For Each CBCtrl2 In CBP.Controls If CBCtrl2.Caption = "Extend Here" Then ' create the new sub-popups With CBCtrl2 Set menuItem = newMenu.Controls.Add(Type:=msoControlPopup) menuItem.Caption = "Sub Menus" End With End If And ideas where I am going wrong here? |
#2
|
|||
|
|||
nevermind I figured it out
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Adding text to after a bookmark based on drop down menu choice | ksigcajun | Word VBA | 6 | 06-10-2014 09:39 AM |
adding a pst file to an existing pst file | falcodriver | Outlook | 2 | 12-14-2011 08:16 AM |
Adding Macro menu to the right click menu (Word 2007) | masam123 | Word | 0 | 10-14-2011 04:05 AM |
Adding an exchange account to an existing POP3 account | robertin75 | Outlook | 2 | 05-05-2011 07:49 AM |
Adding Image into a excel cell and adding a hyperlink to the image | saravananiyyanar | Excel | 3 | 05-04-2011 08:31 AM |