Breaks the link between the source file and the specified OLE object, picture, or linked field.
Note After you use this method, the link result won't be automatically updated if the source file is changed.
expression.BreakLink
expression Required. An expression that returns a LinkFormat object.
Example
This example updates and then breaks the links to any shapes that are linked OLE objects in the active document.
Dim shapeLoop As Shape
For Each shapeLoop In ActiveDocument.Shapes
With shapeLoop
If .Type = msoLinkedOLEObject Then
.LinkFormat.Update
.LinkFormat.BreakLink
End If
End With
Next shapeLoop