Daniel
4/7/2009 8:01:00 PM
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
> <daniel@discussions.microsoft.com> 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"), Before:=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, Before:=1)
> >> tbb.OnAction = ThisWorkbook.Name + "!custommacro"
> >> .Width = 200
> >> .Visible = True
> >> End With
> >> End Sub
> >>
> >>
>