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