Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Adding a control to a command bar
Sub AddButton()
    Set NewBtn = CommandBars("MyToolbar").Controls.Add _
      (Type:=msoControlButton)
    With NewBtn
       .FaceId = 300
       .OnAction = "MyMacro"
       .Caption = "Tooltip goes here"
    End With
End Sub