It's right there in the sample file "CommandBars with custom icons"

' insert an icon from a file
If CopyPictureFromFile(shtCustomIcons, ThisWorkbook.Path &
"\donotpark.bmp") Then
.PasteFace ' paste the custom icon
End If

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Sarah Davies" skrev i melding
...
thanks to harold staff for his suggestion, but I need
some lines to put into the macro (which makes the toolbar
and assigns the button), which will set the face
as "H:\buttons\Macro1.bmp" for example automatically
without having to go into the face editor in the
customise menu.