Workbook.VstoSmartTags Property


Gets the 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..

public Microsoft.Office.Tools.SmartTagCollection VstoSmartTags { get; }

Property Value


The 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.

private void AddSmartTag()
    Microsoft.Office.Tools.Excel.SmartTag colorTag =
        "", "Demo Smart Tag");

    Microsoft.Office.Tools.Excel.Action colorText =
        Globals.Factory.CreateAction("Color text blue");
    colorText.Click +=
        new Microsoft.Office.Tools.Excel.ActionClickEventHandler(

    Workbook vstoWorkbook = Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook);

    colorTag.Actions =
        new Microsoft.Office.Tools.Excel.Action[] {
            colorText };

private void colorText_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue);
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( _
           "", "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}
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

Applies to