ConvertToInlineShape Method Example

This example converts each picture in MyDoc.doc to an inline shape.

For Each s In Documents("MyDoc.doc").Shapes
    If s.Type = msoPicture Then
        s.ConvertToInlineShape
    End If
Next s