SmartTagActions Collection

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.

SmartTag SmartTagActions SmartTagAction

A collection of SmartTagAction objects that represent the actions that can be performed with smart tags.

Using the SmartTagActions collection

Use the SmartTagActions property of the SmartTag object to return a SmartTagActions collection.

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