sets the FaceId property of the first button on the MyToolbar toolbar image to 45, which is the code number for a mailbox icon.
Sub faceID() CommandBars("MyToolbar").Controls(1).FaceId = 45 End Sub