Excel VBA教程:SmartTagAction对象

   
SmartTagActions
SmartTagAction

代表可用智能标记执行的操作

SmartTagAction对象用法

可用 SmartTagActions对象的 Item属性返回一个 SmartTagAction对象。

返回一个 SmartTagAction对象后,便可激活一个智能标记,从而可用 Execute方法自动对数据进行注释。本示例为股票行情自动收录器符号“MSFT”插入一个可刷新的股票报盘,假定主机系统已连至 Internet。


Sub ExecuteASmartTag()
    Dim strAction As String
    strAction = "Insert refreshable stock price"
    ' Enable smart tags to be embedded and recognized.
    ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
    Application.SmartTagRecognizers.Recognize = True
    ' Invoke a smart tag for the Microsoft ticker symbol.
    With Range("A1")
        .Formula = "MSFT"
        .SmartTags( _
            "urn:schemas-microsoft-com:office:smarttags#stockticker") _
            .SmartTagActions(strAction).Execute
    End With
End Sub

上页:Excel VBA教程:SmartTag对象 下页:Excel VBA教程:SmartTagActions集合

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对象 Excel VBA教程:UsedObjects集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号