Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Custom Toolbars

Private tlbMyToolbar As CommandBar 'Add tool bar Sub AddToolbar()     Dim tlbMyButton As CommandBarButton     Set tlbMyToolbar = Application.CommandBars.Add( _         name:=" Example Toolbar", _         Position:=msoBarFloating, _         Temporary:=True)     tlbMyToolbar.Visible = True     Set tlbMyButton = tlbMyToolbar.Controls.Add( _         Type:=msoControlButton, _         Temporary:=True)     tlbMyButton.Style = msoButtonIconAndCaption     tlbMyButton.Picture = LoadPicture(ActiveWorkbook.Path & "\myImage.bmp")     tlbMyButton.Caption = "Test" End Sub