SmartTags 集合 - Microsoft Excel Visual Basic 2002 参考

返回介绍

SmartTags 集合

发布于 2019-08-07 字数 1583 浏览 791 评论 0

多个对象
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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!