Code Snippets

Public Sub ListToolbars() 
Dim icount As Integer
   For icount = 1 To CommandBars.Count
      Debug.Print CommandBars.Item(icount).Name
      If CommandBars.Item(icount).Name = " " Then
'CommandBars.Item(icount).Protection = msoBarNoProtection
         CommandBars.Item(icount).Enabled = False
      End If
   Next icount
End Sub

You can get a run-time error when hiding and showing a command bar using the visible property, because this property does not apply to all types of commandbars.

Allows you to select a particular tab


Set cbobj = Application.CommandBars("Worksheet menu bar") _ 
   .Find Control(Type:=msoControlPopup, Tag:="yourtag")

If cbobj Is Nothing Then
   Call MsgBox("Not Found!")
End If

Creating a shortcut menu

Set mybar = CommandBar.Add("myshortcut", msoBarPopUp, True) 

Enable all toolbars

Public Sub EnableAllToolbars() 
Dim cb As CommandBar
   For Each cb In CommandBars
      If cb.Type = msoBarTypeNormal Then
         cb.Enabled = True
      End If
   Next cb
End Sub


Running a macro from a mouse over

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _ 
                          ByVal Shift As Integer, _
                          ByVal x As Single, _
                          ByVal Y As Single)
   commandbutton1.backcolor = RGB(10,10,10)
End Sub

Creating a new toolbar

Set TBar = CommandBars.Add 
With TBar
    .Name = "MonthList"
     .Visible = True
End With

Adding a custom graphic to a button

Dim oShape As Shape 
Set oShape = Activeworkbook.Shapes.AddPicture(FileName:="C;\temp\image.gif")
set oShape = Nothing

Disabling a specific shortcut

CommandBars("Toolbar List").Enabled = False 

Disabling all the right click shortcut menus

Dim cb As CommandBar 
   For Each eb In CommandBars
      If cb.Type = msoBarTypePopUp Then cb.Enabled = False
   Next cb

Adding a button to the standard toolbar ?

Set xx = CommandBars("Standard").Controls.Add(msoControlButton, 3) 
xx.OnAction := "Macro_name"
xx.FaceId := 893

Adding a checkmark

CommandBars(1).Commands("MyMenu").Commands("Item").state = msoButtonDown 

Adding a dropdown control

Set NewDD = CommandBars("MonthList").Controls.Add(Type:=msoControlDropdown) 
.Style = msoButtonAutomatic ????
CommandBars("MonthList").Controls("DateDD").ListIndex = i

Restoring Defaults

For Each tb In CommandBars 
   If cb.Type = msoBarTypeNormal Then
      If cb.BuiltIn = True Then cb.Reset
   End If
Next cb

Public Sub ListControlsIds() 
   Dim cbar As Office.CommandBar
   Dim ctl As CommandBarControl
   Dim iid As Integer

      Set cbar = Application.CommandBars.Add("temporary", msoBarTop, False, True)
   For iid = 1 To 4000
      On Error Resume Next
      Set ctl = cbar.Controls.Add(ID:=iid)
   Next iid
   iid = 1
   For Each ctl In cbar.Controls
      Cells(2 + iid, 2).Value = ctl.Caption
      Cells(2 + iid, 3).Value = ctl.ID
      iid = iid + 1
   Next ctl
End Sub

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext