SmartTagAction Object
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
SmartTagActions SmartTagAction |
Represents the actions that can be performed with smart tags.
Using the SmartTagAction object
Use the Item property of the SmartTagActions collection to return a SmartTagAction object.
Once a SmartTagAction object has been returned, you can activate a smart tag to automatically annotate data using the Execute method. This example inserts a refreshable stock quote for the ticker symbol "MSFT" and it assumes the host system is connected to the 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