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