The .Picture and .Mask properties of a command bar button were introduced in
Office XP (2002). In 2000, you must use the button's .PasteFace method to
apply a picture copied into the clipboard to the button.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Padam" wrote in message
...
Below code gives error as cb.Picture = picPicture does not
exists.
Kindly help me. I am using it for Excel 2000 VBA.

Private Sub Workbook_Activate()
'sImageFile = ThisWorkbook.Path & "\ABC.jpg"
Dim c As CommandBar
Dim cb As CommandBarButton
Dim picPicture As IPictureDisp
Dim picMask As IPictureDisp 'you can also change the mask
Set picPicture = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path &
"\ABC.jpg")

'optional - only of you have a mask file
'Set picMask = stdole.StdFunctions.LoadPicture("c:\...(your
path)...\maskName.bmp")
On Error Resume Next
Application.CommandBars("BarName").Delete

Set c = Application.CommandBars.Add("BarName", msoBarFloating, False,
True)
c.Enabled = True
c.Visible = True

Set cb = c.Controls.Add(msoControlButton)
cb.Style = msoButtonIcon
cb.Tag = "ButtonTest"

'Set the picture
cb.Picture = picPicture
'Set the mask
'cb.Mask = picMask
cb.OnAction = "ThisWorkbook.Test"
Set cb = Nothing
Set c = Nothing

End Sub