Excel VBA教程:SmartTag对象

   
SmartTags
SmartTag
多个对象

代表分配给单元格的标识符。

SmartTag对象用法

可用 SmartTags对象的 Add方法返回一个 SmartTags集合。

返回一个 SmartTag对象后,就可使用具有 Properties属性的 Add方法来存储附加的元数据。

请参看下面说明本功能的示例。本示例向单元格 A1 添加名为“MSFT”的智能标记,接着在智能标记中添加具有值“Nasdaq”的名为“Market”的附加元数据,然后将该属性的值返回给用户。本示例假定主机系统与 Internet 相连。


Sub UseProperties()
    Dim strLink As String
    Dim strType As String
    ' Define SmartTag 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 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

若要查看附加元数据,请使用 SmartTag对象的 XML属性。本示例以上述示例为基础,显示了向单元格 A1 中添加的智能标记上的附加元数据。智能标记的元数据代表将要传递给操作句柄的 XML。本示例假定主机系统与 Internet 相连。


Sub CheckXML()
    Dim strLink As String
    Dim strType As String
    ' Define SmartTag 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"
    ' Display the sample of the XML.
    MsgBox Range("A1").SmartTags.Add(strLink).XML
End Sub

上页:Excel VBA教程:Sheets集合对象 下页:Excel VBA教程:SmartTagAction对象

Excel VBA教程:SmartTag对象

Excel VBA教程:SmartTagAction对象 Excel VBA教程:SmartTagActions集合
Excel VBA教程:SmartTagOptions对象 Excel VBA教程:SmartTagRecognizer对象
Excel VBA教程:SmartTagRecognizers集合 Excel VBA教程:SmartTags集合
Excel VBA教程:SoundNote对象 Excel VBA教程:Speech对象
Excel VBA教程:SpellingOptions对象 Excel VBA教程:Style对象
Excel VBA教程:Styles集合 Excel VBA教程:Tab对象
Excel VBA教程:TextEffectFormat对象 Excel VBA教程:TextFrame对象
Excel VBA教程:ThreeDFormat对象 Excel VBA教程:TickLabels对象
Excel VBA教程:TreeviewControl对象 Excel VBA教程:Trendline对象
Excel VBA教程:Trendlines集合对象 Excel VBA教程:UpBars对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号