vba11-2.txt

来自「ao的一些代码集合」· 文本 代码 · 共 19 行

Public Sub NewMenu()
  ' Find the Main menu bar.
  Dim pMainMenuBar As ICommandBar
  Set pMainMenuBar = ThisDocument.CommandBars. _
  Find(ArcID.MainMenu)
    
  ' Create the new menu called "MyMenu"
  ' on the MainMenuBar.
  Dim pNewMenu As ICommandBar
  Set pNewMenu = pMainMenuBar.CreateMenu("MyMenu")
    
  ' Add a built in command to the new menu.
  pNewMenu.Add ArcID.File_AddData
    
  ' Add your VBA macro to the new menu.
  pNewMenu.CreateMacroItem "MyCommand", 0, _
  "Project.ThisDocument.ShowTime"
End Sub