应用于 PublishObject 对象的 Source 属性。
返回唯一名称,该名称用于标识其 SourceType 属性值为 xlSourceRange、xlSourceChart、xlSourcePrintArea、xlSourceAutoFilter、xlSourcePivotTable 或 xlSourceQuery 的项。如果 SourceType 属性设置为 xlSourceRange,则本属性返回一个区域,该区域可以是一个定义名称。如果 SourceType 属性设置为 xlSourceChart、xlSourcePivotTable 或 xlSourceQuery,则本属性返回对象的名称,例如:图表名称、数据透视表名称或查询表名称。String 类型,只读。
expression.Source
expression 必需。该表达式返回一个 PublishObject 对象。
返回唯一名称,该名称用于标识其 SourceType 属性值为 xlSourceRange、xlSourceChart、xlSourcePrintArea、xlSourceAutoFilter、xlSourcePivotTable 或 xlSourceQuery 的项。如果 SourceType 属性设置为 xlSourceRange,则本属性返回一个区域,该区域可以是一个定义名称。如果 SourceType 属性设置为 xlSourceChart、xlSourcePivotTable 或 xlSourceQuery,则本属性返回对象的名称,例如:图表名称、数据透视表名称或查询表名称。Variant 类型,只读。
expression.Source
expression 必需。该表达式返回一个 Watch 对象。
本示例确定保存为 Web 页的第一张图表(在第一个工作簿中)的唯一名称,然后将 Boolean 类型的变量 blnChartFound
设置为 True。如果文档中没有保存为图表组件的项,则 blnChartFound
为 False。
blnChartFound = False
For Each objPO In Workbooks(1).PublishObjects
If objPO.SourceType = xlSourceChart Then
strFirstPO = objPO.Source
blnChartFound = True
Exit For
End If
Next objPO