<andrewb@statpro.co.uk>De: Andrew Baker 
Objet: Re: Icons on buttons
Date : lundi 26 juillet 1999 16:08

The following code should do the trick...The First Sub, 'Test' simply gets
the fileopen
control, but just insert the control you want to in its place.

Sub Test()
    set myControl = CommandBars.findControl(type:=msoControlButton, Id:=23)
    Call PasteIcon("C:\Test.bmp", myControl)
end Sub

Sub PasteIcon(BitmapFilePath As String, ThisCommandButton)
    dim TempPicture
    set TempPicture = activesheet.Pictures.Insert("D:\Test.bmp")
    TempPicture.Copy
    with ThisCommandButton
        .PasteFace
    end with
    TempPicture.delete
end Sub

--
Regards,

Andrew Baker.

STATPRO GROUP PLC

Tel : 0181 4109876
Tel : 0181 4109909 (Direct)
Email : andrewb@statpro.co.uk
Wojciech Nowiñ<wojciech.nowinski@cdn.com.pl>ski  wrote in message
news:FA6D0977B018D311B67E0008C79F94EC184942@POCZTA...
> I've made toolbar with a few buttons. I want to have on every button my
> own icon, but I don't know how can I do this. At this time I use .FaceId
> property to display system icons.
> Anybody knows other method to do this ?
>
> Wojtek Nowinski
> wojciech.nowinski@cdn.com.pl
> Cracow, Poland
>