Custom Toolbar

[Michelle]

Thanks got it to position correctly now I need to know how
do I make it so it shows the image and text, currenly the
first one shows save as a disk and says exit the second
one says share workbook.

This is my code

Application.CommandBars.Add(Name:="COUNT").Position =
msoBarTop
Application.CommandBars("COUNT").Controls.Add
Type:=msoControlButton, ID:=3 _
, Before:=1
Application.CommandBars("COUNT").Controls.Add
Type:=msoControlButton, ID:= _
752, Before:=2

Application.CommandBars.Add(Name:="CountControl").Position
= msoBarTop
Application.CommandBars("CountControl").Controls.Add
Type:=msoControlButton, _
ID:=2040, Before:=1