vba11-1.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 15 行

Public Sub NewToolbar()
  Dim pDocument As IDocument
  Dim pCommandBars As ICommandBars
  Dim pCommandBar As ICommandBar
  
  Set pDocument = ThisDocument
  Set pCommandBars = pDocument.CommandBars
  Set pCommandBar = pCommandBars.Create("MyToolbar", _
  esriCmdBarTypeToolbar)
  
  ' Add the ShowTime macro
  pCommandBar.CreateMacroItem "MyCommand", 0, _
 "Project.ThisDocument.ShowTime"
  pCommandBar.Dock esriDockRight
End Sub