断开源文件与指定 OLE 对象、图片或链接域之间的链接。
注意 使用此方法后,在源文件发生变化的情况下,链接结果不会自动更新。
expression.BreakLink
expression 必需。该表达式返回一个 LinkFormat 对象。
本示例更新活动文档中所有的 OLE 对象,然后断开链接。
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