Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Creating a Toolbar and display MsgBox in its action

Sub AddNewCB()    Dim myCommandBar As CommandBar, myCommandBarCtl As CommandBarControl    On Error GoTo AddNewCB_Err   Set myCommandBar = CommandBars.Add(Name:="Sample Toolbar", Position:= _       msoBarFloating)    myCommandBar.Visible = True   Set myCommandBarCtl = myCommandBar.Controls.Add(Type:=msoControlButton)    With myCommandBarCtl       .Caption = "Button"       .Style = msoButtonCaption       .TooltipText = "Display Message Box"       .OnAction = "=MsgBox(""You pressed a toolbar button!"")"    End With        Exit Sub AddNewCB_Err:    msgBox "Error " & Err.number & vbCr & Err.Description    Exit Sub End Sub