Clear Contents of Shape Without Deleting Shape

[AlvaroSiza]

Insert > Shapes > Rectangle (drew the rectangle onto a worksheet). Named it, say, MyShape.

MyShape and strURL are then eventually passed to the oShape (shape) variable, which becomes populated with a picture via:

oShape.Fill.UserPicture strURL

How do I clear the contents of MyShape (a picture) without clearing the actual shape itself? For reference,

debug.print oShape.Type

returns a value of 1 (msoAutoShape?)

Thanks!

AS