SavePictureWithDocument Property Example

This example saves the linked picture that's defined as the first inline shape in the active document when the document is saved.

Set myPic = ActiveDocument.InlineShapes(1)
If myPic.Type = wdInlineShapeLinkedPicture Then
    myPic.LinkFormat.SavePictureWithDocument = True
End If