I have added a custome toolbar with the following code. I would like to add
a tooltip to this button. Also, can I have a button with text instead of the
icon?

Dim cb As CommandBar
Set cb = CommandBars.Add
With cb
.Name = "SWAP"
.Position = msoBarTop
End With

Set myBar = CommandBars("SWAP")
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton, _
Temporary:=True)
With myControl
.FaceId = 47
.Width = 75
.OnAction = "ResetValues"
End With
myBar.Visible = True

Many Thanks
--
Robert Hill

One way:

With Application.CommandBars
On Error Resume Next
.Item("SWAP").Delete
On Error GoTo 0
With .Add( _
Name:="SWAP", _
Position:=msoBarTop, _
MenuBar:=False, _
Temporary:=True)
With .Controls.Add( _
Type:=msoControlButton, _
Id:=1, _
Befo=1, _
Temporary:=True)
'.FaceId = 47
.Width = 75
.Style = msoButtonCaption
.Caption = "Caption"
.TooltipText = "Tooltip Text"
.OnAction = "ResetValues"
End With
.Visible = True
End With
End With

In article ,
Robert wrote:

I have added a custome toolbar with the following code. I would like to add
a tooltip to this button. Also, can I have a button with text instead of the
icon?

Dim cb As CommandBar
Set cb = CommandBars.Add
With cb
.Name = "SWAP"
.Position = msoBarTop
End With

Set myBar = CommandBars("SWAP")
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton, _
Temporary:=True)
With myControl
.FaceId = 47
.Width = 75
.OnAction = "ResetValues"
End With
myBar.Visible = True

Many Thanks

Thanks. That worked great. Is there a way to hide macros so that a user
cannot run them? I am not very good with Excel.
--
Robert Hill



"JE McGimpsey" wrote:

One way:

With Application.CommandBars
On Error Resume Next
.Item("SWAP").Delete
On Error GoTo 0
With .Add( _
Name:="SWAP", _
Position:=msoBarTop, _
MenuBar:=False, _
Temporary:=True)
With .Controls.Add( _
Type:=msoControlButton, _
Id:=1, _
Befo=1, _
Temporary:=True)
'.FaceId = 47
.Width = 75
.Style = msoButtonCaption
.Caption = "Caption"
.TooltipText = "Tooltip Text"
.OnAction = "ResetValues"
End With
.Visible = True
End With
End With

In article ,
Robert wrote:

I have added a custome toolbar with the following code. I would like to add
a tooltip to this button. Also, can I have a button with text instead of the
icon?

Dim cb As CommandBar
Set cb = CommandBars.Add
With cb
.Name = "SWAP"
.Position = msoBarTop
End With

Set myBar = CommandBars("SWAP")
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton, _
Temporary:=True)
With myControl
.FaceId = 47
.Width = 75
.OnAction = "ResetValues"
End With
myBar.Visible = True

Many Thanks