Programmatically put an image on a button
 

I am using Office 2003 on Win XP.

I have coded a program that adds an ActiveX button (OLEObject) on a
spreadsheet. Now I want to place an image on the surface of the button, which
I can do manually, but the macro recorder doesn't pick up the keystrokes.

Can someone please provide some example code that adds an image?

Thanks much in advance.

Programmatically put an image on a button
 

Sub abc()
s = "C:\Documents and Settings\" & _
"OgilvyTW\My Documents\My Pictures\sample.jpg"
ActiveSheet.CommandButton1.Picture = LoadPicture(s)
End Sub

--
Regards,
Tom Ogilvy


"quartz" wrote:

I am using Office 2003 on Win XP.

I have coded a program that adds an ActiveX button (OLEObject) on a
spreadsheet. Now I want to place an image on the surface of the button, which
I can do manually, but the macro recorder doesn't pick up the keystrokes.

Can someone please provide some example code that adds an image?

Thanks much in advance.