全部显示

BreakLink 方法

       

将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。

expression.BreakLink(Name, Type)

expression   必需。该表达式返回“应用于”列表中的对象之一。

PictureFile   String 类型,必需。链接的名称。

Type   XILinkType 类型,必需。链接的类型。

示例

本示例中,Microsoft Excel 转换了活动工作簿中的第一个链接(Excel 链接类型)。本示例假定在活动工作簿中至少存在一个连接到其他 Excel 源的公式。

Sub UseBreakLink()

    Dim astrLinks As Variant

    ' Define variable as an Excel link type.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    ' Break the first link in the active workbook.
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(1), _
        Type:=xlLinkTypeExcelLinks

End Sub