PasteFace Method Example

This example finds the built-in FileOpen button and pastes the face from the Spelling and Grammar button onto it from the Clipboard.

Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=2)
myControl.CopyFace
Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)
myControl.PasteFace