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

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.