As I said, though, the code you originally posted worked fine in my testing (i.e. it does change the formats specified) for an existing shape and, with the addition of .SetShapesDefaultProperties, becomes the default for the current document.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]