BreakLink Method Example

This example updates and then breaks the links to any shapes that are linked OLE objects in the active document.

For Each s In ActiveDocument.Shapes
    If s.Type = msoLinkedOLEObject Then
        s.LinkFormat.Update
        s.LinkFormat.BreakLink
    End If
Next s