SavePictureWithDocument Property
True if the specified picture is saved with the document. Read/write Boolean.
expression.SavePictureWithDocument
expression Required. An expression that returns a LinkFormat object.
Remarks
This property works only with shapes and inline shapes that are linked pictures.
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