what is the code to change the tool tip in this example:
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Befo=1)
tbb.OnAction = ThisWorkbook.Name + "!custommacro"
.Width = 200
.Visible = True
End With
End Sub

If you don't believe Chip Pearson's answer, you shouldn't be in this forum.
--

Gary Brown



"daniel" wrote:

what is the code to change the tool tip in this example:
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Befo=1)
tbb.OnAction = ThisWorkbook.Name + "!custommacro"
.Width = 200
.Visible = True
End With
End Sub

gary
i believe him. i was working on the command code. he never said yes or no,
or maybe i misunderstood.:
Private Sub Addcontrol()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
CommandBars("Auto Sum").Controls("Sum").Copy Bar:=CommandBars _
("Test"), Befo=1
Set tbb = CommandBars("Test").Controls("Sum")
tbb.Style = msoButtonAutomatic
tbb.OnAction = ThisWorkbook.Name + "!MyAutoSumButtonMacro"
.Width = 200
.Visible = True
End With
End Sub


"daniel" wrote:

what is the code to change the tool tip in this example:
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Befo=1)
tbb.OnAction = ThisWorkbook.Name + "!custommacro"
.Width = 200
.Visible = True
End With
End Sub

i believe him. i was working on the command code. he never said yes or no,
or maybe i misunderstood.:

The answer to your control tip question is "No, you can't add control
tips to Excel.ToolbarButton objects." The answer to the broader
question of "what should you do?" is "Yes, use Office.CommandBar and
Office.CommandBarControl objects. They support control tips."

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Tue, 7 Apr 2009 11:56:12 -0700, daniel
wrote:

gary
i believe him. i was working on the command code. he never said yes or no,
or maybe i misunderstood.:
Private Sub Addcontrol()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
CommandBars("Auto Sum").Controls("Sum").Copy Bar:=CommandBars _
("Test"), Befo=1
Set tbb = CommandBars("Test").Controls("Sum")
tbb.Style = msoButtonAutomatic
tbb.OnAction = ThisWorkbook.Name + "!MyAutoSumButtonMacro"
.Width = 200
.Visible = True
End With
End Sub


"daniel" wrote:

what is the code to change the tool tip in this example:
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Befo=1)
tbb.OnAction = ThisWorkbook.Name + "!custommacro"
.Width = 200
.Visible = True
End With
End Sub

Mr. Pearson,
I apologize for my misunderstanding of your original explanation and thank
you for response and help.


"Chip Pearson" wrote:


i believe him. i was working on the command code. he never said yes or no,
or maybe i misunderstood.:

The answer to your control tip question is "No, you can't add control
tips to Excel.ToolbarButton objects." The answer to the broader
question of "what should you do?" is "Yes, use Office.CommandBar and
Office.CommandBarControl objects. They support control tips."

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Tue, 7 Apr 2009 11:56:12 -0700, daniel
wrote:

gary
i believe him. i was working on the command code. he never said yes or no,
or maybe i misunderstood.:
Private Sub Addcontrol()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
CommandBars("Auto Sum").Controls("Sum").Copy Bar:=CommandBars _
("Test"), Befo=1
Set tbb = CommandBars("Test").Controls("Sum")
tbb.Style = msoButtonAutomatic
tbb.OnAction = ThisWorkbook.Name + "!MyAutoSumButtonMacro"
.Width = 200
.Visible = True
End With
End Sub


"daniel" wrote:

what is the code to change the tool tip in this example:
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Befo=1)
tbb.OnAction = ThisWorkbook.Name + "!custommacro"
.Width = 200
.Visible = True
End With
End Sub