Hi Charles
As far as I'm aware all custom pics have a FaceId property of 0 (zero)
DaveOzGrid Business Applications
Thank you Dave,
One more question, where do you place custom pics so that they can be referrenced?
-Charles
I'm not sure, but here's a method of adding a 16 x 16 pixel custom image to a toolbar button using the .pasteface command.
Sub AddButton()
ActiveWorkbook.Worksheets("images").Shapes("Image001").CopyPicture
Set NewBtn = CommandBars("Standard").Controls.Add(Type:=msoControlButton)
With NewBtn
.PasteFace
End With
End Sub
Tim