将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。
expression.BreakLink(Name, Type)
expression 必需。该表达式返回“应用于”列表中的对象之一。
PictureFile String 类型,必需。链接的名称。
Type XILinkType 类型,必需。链接的类型。
XlLinkType 可为以下 XlLinkType 常量之一。 |
xlLinkTypeExcelLinks 对 Microsoft Excel 源的链接。 |
xlLinkTypeOLELinks 对 OLE 源的链接。 |
本示例中,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