Workbook.VstoSmartTags Property

 

Gets the Microsoft.Office.Tools.SmartTagCollection associated with the workbook.

This type or member is intended to be used only in projects for the 2007 Microsoft Office system. Smart tags are deprecated in Office 2010.

.

Namespace:   Microsoft.Office.Tools.Excel
Assembly:  Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)

ReadOnly Property VstoSmartTags As SmartTagCollection

Property Value

Type: Microsoft.Office.Tools.SmartTagCollection

The Microsoft.Office.Tools.SmartTagCollection associated with the workbook.

The following code example creates a smart tag that sets the font color of a cell to blue when the term "blue" is recognized. The example adds the smart tag to the workbook by using the VstoSmartTags property.

This version is for an application-level add-in.

WithEvents ColorText As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    Dim vstoWorkbook As Workbook = Globals.Factory.GetVstoObject(Me.Application.ActiveWorkbook)
    Dim ColorTag As SmartTag = Globals.Factory.CreateSmartTag( _
           "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag")

    Dim ColorText As Microsoft.Office.Tools.Excel.Action =
        Globals.Factory.CreateAction("Color text blue")
    AddHandler ColorText.Click, AddressOf ColorText_Click

    ColorTag.Actions = _
        New Microsoft.Office.Tools.Excel.Action() {ColorText}
    ColorTag.Terms.Add("blue")
    vstoWorkbook.VstoSmartTags.Add(ColorTag)
End Sub

Private Sub ColorText_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs)
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue)
End Sub
Return to top
Show: