How to attach own image with custom toolbar of Excel 2000?

Question

I have to put own image in custom toolbar of Excel 2000. Can some body help me out?

Dim sFile, ImgSheet
sFile = ActiveWorkbook.Path & "\Images\TheMarket.jpg"
Const sNAME = "MyToolFace"

'Delete (free memory) toolbar before creation
Call DeleteTMCToolbar

Set cbBar = CommandBars.Add(Name:=cCommandBarID, Position:=msoBarTop)

Set cbImage = cbBar.Controls.Add(Type:=msoControlButton)
With cbImage
.FaceId = 5
.Caption = "TheMarketsImage"
.Style = msoButtonIcon

.PasteFace
End With

Answer 1

Its not as complex as using VBA.
Right click on a toolbar, choose customize at the bottom of the list. a small window will open. Now without clicking on that window right clcik on a toolbar again and you get a whole load of new options come up which allow you to insert toolbars, breaks, images of any type then save the layout.

If you want to see what changes you have made in VBA then just press alt-f11 and see.

Hope this is what you were after.