When adding second menu item to custom menu it appears greyed out 
Author Message
 When adding second menu item to custom menu it appears greyed out

What am I doing wrong?

Here is the code that I am using from Microsoft Developer
Source:

   Dim uiObj As Visio.UIObject
   Dim menuSetsObj As Visio.MenuSets
   Dim menuSetObj As Visio.MenuSet
   Dim menusObj As Visio.Menus
   Dim menuObj As Visio.Menu
   Dim menuItemsObj As MenuItems
   Dim menuItemObj As Visio.MenuItem

On Error GoTo Error_Handler

   Call ProcedureStack_Add
(conModule, "CustomMenuItem_ANNEX_K")
   DoCmd.Hourglass True     'Changes cursor to hourglass

   ' Get UIObject that represents a copy of the built-in
   ' visio menus
   Set uiObj = Visio.Application.BuiltInMenus

   ' Get the menusets collection
   Set menuSetsObj = uiObj.MenuSets

   ' Get drawing window menuset object: Get the context
   Set menuSetObj = menuSetsObj.ItemAtID
(visUIObjSetDrawing)

   ' Get the menus collection
   Set menusObj = menuSetObj.Menus

   ' Add "Menu Name" menu before the window
   ' A menu without a menu item will not appear.
   Set menuObj = menusObj.AddAt(7)

   menuObj.Caption = "Name I Give It"

   ' Get the menuitems collection
   Set menuItemsObj = menuObj.MenuItems

   Set menuItemObj = menuItemsObj.Add

   ' Set the properties for the Export menu item.
   menuItemObj.Caption = "Export Graphic &Image"
   menuItemObj.AddOnName = "Drawing_Export"
*********************************************************  

   Set menuItemObj = menuItemsObj.Add

   menuItemObj.Caption = "Test"
   menuItemObj.AddOnName = "DeleteFile"
   menuItemObj.AddOnArgs = "Name of image"

*********************************************************
   ' Tell visio to use the new uiobject (custom menu)
   ' while the document is active.
   ThisDocument.SetCustomMenus uiObj

The second menu appears but it is greyed out????

The book shows adding only one and not muliple menus...

Thanks in advance

Mark



Sat, 12 Nov 2005 23:28:47 GMT  
 When adding second menu item to custom menu it appears greyed out
Mark,

You should double-check to make sure your AddOnName and AddOnArgs are
specified correctly.  The item is grayed out because Visio is unable to
figure out how to run the add-on.  For example, if there is no DeleteFile
add-on, then it will cause the menu item to be grayed out.

--
Dawn

This posting is provided "AS IS" with no warranties, and confers no rights.


Quote:
> What am I doing wrong?

> Here is the code that I am using from Microsoft Developer
> Source:

>    Dim uiObj As Visio.UIObject
>    Dim menuSetsObj As Visio.MenuSets
>    Dim menuSetObj As Visio.MenuSet
>    Dim menusObj As Visio.Menus
>    Dim menuObj As Visio.Menu
>    Dim menuItemsObj As MenuItems
>    Dim menuItemObj As Visio.MenuItem

> On Error GoTo Error_Handler

>    Call ProcedureStack_Add
> (conModule, "CustomMenuItem_ANNEX_K")
>    DoCmd.Hourglass True     'Changes cursor to hourglass

>    ' Get UIObject that represents a copy of the built-in
>    ' visio menus
>    Set uiObj = Visio.Application.BuiltInMenus

>    ' Get the menusets collection
>    Set menuSetsObj = uiObj.MenuSets

>    ' Get drawing window menuset object: Get the context
>    Set menuSetObj = menuSetsObj.ItemAtID
> (visUIObjSetDrawing)

>    ' Get the menus collection
>    Set menusObj = menuSetObj.Menus

>    ' Add "Menu Name" menu before the window
>    ' A menu without a menu item will not appear.
>    Set menuObj = menusObj.AddAt(7)

>    menuObj.Caption = "Name I Give It"

>    ' Get the menuitems collection
>    Set menuItemsObj = menuObj.MenuItems

>    Set menuItemObj = menuItemsObj.Add

>    ' Set the properties for the Export menu item.
>    menuItemObj.Caption = "Export Graphic &Image"
>    menuItemObj.AddOnName = "Drawing_Export"
> *********************************************************

>    Set menuItemObj = menuItemsObj.Add

>    menuItemObj.Caption = "Test"
>    menuItemObj.AddOnName = "DeleteFile"
>    menuItemObj.AddOnArgs = "Name of image"

> *********************************************************
>    ' Tell visio to use the new uiobject (custom menu)
>    ' while the document is active.
>    ThisDocument.SetCustomMenus uiObj

> The second menu appears but it is greyed out????

> The book shows adding only one and not muliple menus...

> Thanks in advance

> Mark



Mon, 14 Nov 2005 05:39:07 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Adding custom menu items to explorer menu

2. Adding custom menu items to explorer menu

3. Add (first) menu items at runtime, then (second) subitems to newly create items

4. Need Help: Trouble adding a custom menu pick to a custom popup menu in VBA

5. Adding Menu item to the Mail item menu from an outlook Addin

6. Adding Menu item to the Mail item menu from an outlook Addin

7. Identifying Which menu item was clicked on a custom menu

8. Adding menu items to custom forms using Outlook 98

9. Adding custom menu item

10. Adding Custom Menu Item

11. Howto add a menu to right-click menu for an item

12. Adding Menu Item to Inspector Menu

 

 
Powered by phpBB® Forum Software