Nevermind

..Style = msoButtonIconAndCaption


"A1pro" wrote:

Hello,

I've got this part of a macro

Set cbar = Application.CommandBars.Add(Name:="SendOut", temporary:=True)
cbar.Visible = True
Set cbarcontrol = cbar.Controls.Add(Type:=msoButtonIcon)
With cbarcontrol
.FaceId = 136
.Caption = "SendOut"
.OnAction = "RunWordMacro_Automation"

It creates a toolbar with a button

The only thing I need to do is modify it so it shows not only the icon but
the also a name like SendOut in this case

any ideas ?

TIA