Excel VBA教程:CustomProperties集合

   
多个对象
CustomProperties
CustomProperty

CustomProperty对象的集合,代表附加信息。可用于 XML 的元数据的信息。

CustomProperties集合用法

可用 SmartTag对象的 Properties属性,或 Worksheet对象的 CustomProperties属性返回一个 CustomProperties集合。

返回一个 CustomProperties集合后,可根据选择向工作表和智能标记中添加元数据。

若要向工作表添加元数据,请使用 Add方法的CustomProperties属性。

下例示范了该功能。本示例中,Microsoft Excel 向活动工作表中添加标识符信息,并将名称和值返回给用户。


Sub CheckCustomProperties()
    Dim wksSheet1 As Worksheet
    Set wksSheet1 = Application.ActiveSheet
    ' Add metadata to worksheet.
    wksSheet1.CustomProperties.Add _
        Name:="Market", Value:="Nasdaq"
    ' Display metadata.
    With wksSheet1.CustomProperties.Item(1)
        MsgBox .Name & vbTab & .Value
    End With
End Sub

若要向智能标记中添加元数据,请使用 Add方法的Properties属性。

下例示范了该功能。本示例中,Microsoft Excel 向单元格 A1 中添加了名为“MSFT”的智能标记,然后向智能标记中添加名为“Market”、值为“Nasdaq”的附加元数据,并将属性值返回给用户。本示例假定当运行此代码示例时主机系统已连至 Internet,名为“Stock Ticker Symbol Recognizer”的选中识别器可用于 Microsoft Excel。


Sub UseProperties()
    Dim strLink As String
    Dim strType As String
    ' Define smart tag variables.
    strLink = "urn:schemas-microsoft-com:smarttags#stocktickerSymbol"
    strType = "stockview"
    Range("A1").Formula = "MSFT"
    ' Add a property for MSFT smart tag and define its value.
    Range("A1").SmartTags.Add(strLink).Properties.Add _
        Name:="Market", Value:="Nasdaq"
    ' Notify the user of the smart tag's value.
    MsgBox Range("A1").SmartTags.Add(strLink).Properties("Market").Value
End Sub

上页:Excel VBA教程:CubeFields集合对象 下页:Excel VBA教程:CustomProperty对象

Excel VBA教程:CustomProperties集合

Excel VBA教程:CustomProperty对象 Excel VBA教程:CustomView对象
Excel VBA教程:CustomViews集合对象 Excel VBA教程:DataLabel对象
Excel VBA教程:DataLabels集合对象 Excel VBA教程:DataTable对象
Excel VBA教程:DefaultWebOptions对象 Excel VBA教程:Diagram对象
Excel VBA教程:DiagramNode对象 Excel VBA教程:DiagramNodeChildren集合
Excel VBA教程:DiagramNodes集合 Excel VBA教程:Dialog对象
Excel VBA教程:Dialogs集合对象 Excel VBA教程:DisplayUnitLabel对象
Excel VBA教程:DownBars对象 Excel VBA教程:DropLines对象
Excel VBA教程:Error对象 Excel VBA教程:ErrorBars对象
Excel VBA教程:ErrorCheckingOptions对象 Excel VBA教程:Errors对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号