Show All

DownloadURL Property

Returns a String representing a Uniform Resource Locator (URL) to save along with the corresponding smart tag. Read-only.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds "MSFT" to cell A1 and then displays the URL for the smart tag. This example assumes the host system is connected to the Internet.

Sub UseDownLoadURL()

    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"

    ' Display URL for the smart tag.
    MsgBox Range("A1").SmartTags.Add(strLink).DownloadURL

End Sub