SmartTags 集合

多个对象 SmartTag SmartTag

SmartTag 对象的集合，该集合代表分配给每个单元格的标识符。

SmartTags 集合用法

可用 Range 集合或 Worksheet 对象的 SmartTags 属性返回一个 SmartTag 集合。下例说明了具有 Add 方法的 SmartTags 属性的用法。

本示例向单元格 A1 中添加一个标题为“MSFT”的智能标记，接着向智能标记添加具有“Nasdaq”值的名为“Market”的附加元数据，然后将属性的值返回给用户。本示例假定主机系统与 Internet 相连。

Sub UseProperties()

    Dim strLink As String
    Dim strType As String

    ' Define smart tag variables.
    strLink = "urn:schemas-microsoft-com:smarttags#StockTickerSymbol"
    strType = "stockview"

    ' Enable smart tags to be embedded and recognized.
    ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
    Application.SmartTagRecognizers.Recognize = True

    Range("A1").Formula = "MSFT"

    ' Add a property for MSFT smart tag and define it's 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