home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 June / PCPRO_696.ISO / code / q&a / listing1.txt
Encoding:
Text File  |  1996-03-27  |  643 b   |  20 lines
  1. Sub MenuAdd()
  2. Dim mymenu
  3. æThe next line adds the top level menu 
  4. Application.MenuBars(xlWorksheet).Menus.Add "Test"
  5. æThe next line adds the menu items
  6. Application.MenuBars(xlWorksheet).Menus("Test").MenuItems.AddMenu "Sub Menu"
  7. æThe next line sets mymenu so that it becomes the sub-items under Sub Menu
  8. Set mymenu = Application.MenuBars(xlWorksheet).Menus("Test").MenuItems("Sub Menu").MenuItems æall one line
  9. æThe next lines add a cascading menu to the first menu item
  10. With mymenu
  11.     .Add "Item 1"
  12.     .Add "Item 2"
  13.     .Add "Item 3"
  14. End With
  15. End Sub
  16.  
  17. Sub MenuDelete
  18.     Application.MenuBars(xlWorksheet).Menus("Test").Delete
  19. End Sub
  20.