Some Commandbars properties do not appear on a generated toolbar. The image below shows a Toolbar on the Addins tab. The code that generated it is included.
The code commented out does not make any obvious difference to the look and feel of the toolbar.
I copied the code below from a website and applied my own modifications. Then I found that some properties seemed not to work eg the tooltip.
The plan is to have four buttons.
I note that the Ribbon is now being used but it appears there is no VBA interface. A search for anything about obsolete properties of the Commandbars object did not find any info that I recognised. Have the properties shown in the code just been removed from VBA?
Clicking the button starts the required macro, so clearly the OnAction and FaceID properties still work.
Sub Ahs_CreateMyTool()
'Make the toolbar
Set cbMyTool = CommandBars.Add
cbMyTool.name = "ACE"
'Add a buttons to the toolbar
Set cbbMyButton = cbMyTool.Controls.Add(msoControlButton)
With cbbMyButton
.Caption = "my caption"
.DescriptionText = "my description"
.FaceId = 3359
.OnAction = "ahs_ShowReconForm"
.TooltipText = "Reconcile"
End With
'Before we finish, the toolbar gets a name, width and
'is put on the screen.
With cbMyTool
.name = "ACE"
' .Left = Application.ActiveWindow.Width
' .Top = Application.ActiveWindow.Height
.Visible = True
' .Width = 300
End With
Exit Sub
ErrorHandle:
MsgBox Err.Description & " CreateMyTool", vbOKOnly + vbCritical, "Error"
Resume Next
End Sub
