toolbar to display icon and text

excel 2003 vba
command toolbar

Is there a way to get the text to display with text wit the code below ?

Sub AddNewToolBar()
     ' This procedure creates a new temporary toolbar.
    Dim ComBar As CommandBar, ComBarContrl As CommandBarControl
    On Error GoTo ErrorHandler
     ' Create a new floating toolbar and make it visible.
    On Error Resume Next
     'Delete the toolbar if it already exists
    CommandBars("iFinal_Tools_Utilities_Enterprise").Delete
    Set ComBar = CommandBars.Add(Name:="iFinal_Tools_Utilities_Enterprise", Position:= _
    msoBarFloating, Temporary:=True)
    ComBar.Visible = True
     ' Create a button with text on the bar and set some properties.
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
   ' prebuilts
    With ComBarContrl
       ' .FaceId = 611
        .Caption = "Prebuilts"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "ShowFormPrebuilts"
    End With
   Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' extended search
    With ComBarContrl
       ' .FaceId = 1640
        .Caption = "Extended Search"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "ShowFormExpSearch"
    End With
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' combine locations
    With ComBarContrl
       ' .FaceId = 1647
        .Caption = "Combine Locations"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "Sheet1.CreateNewLocationEZ"
    End With
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' Utilities
    With ComBarContrl
       ' .FaceId = 611
        .Caption = "Utilities"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "ShowUtilities"
    End With
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' create sort
    With ComBarContrl
      '  .FaceId = 1553
        .Caption = "Create Sort"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "Sheet1.FillNum"
    End With
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' Mfgnames search
    With ComBarContrl
      '  .FaceId = 202
        .Caption = "Mfgnames Search"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "ShowForm"
    End With
    Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
    ' output report
    With ComBarContrl
       ' .FaceId = 176
        .Caption = "Output Report"
        .Style = msoButtonCaption
        '.TooltipText = "Run Macro1"
         'the onaction line tells the button to run a certain macro
        .OnAction = "CustomerReport"
    End With
    ' Reset iFinal
     Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton)
     ' Create a button with an image on the bar and set some
     ' properties.
   
    With ComBarContrl
         'the facId line will let you choose an icon
         ' If you choose to use the faceId then the caption is not displayed
      '  .FaceId = 478
        .Caption = "Reset iFinal"
        '.TooltipText = "Run Macro2"
         'the onaction line tells the button to run a certain macro
        .OnAction = "Sheet1.ResetProject"
    End With
    Exit Sub
ErrorHandler:
    MsgBox "Error " & Err.Number & vbCr & Err.Description
    Exit Sub
End Sub
LVL 3
FordraidersAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rory ArchibaldCommented:
You need to change the Style property to msoButtonIconAndCaption to get both icon and text.

HTH
Rory
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
FordraidersAuthor Commented:
Thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.