Workbook.VstoSmartTags-Eigenschaft (2007 System)

Artikel
08/23/2008

Aktualisiert: Juli 2008

Ruft die mit der Arbeitsmappe verknüpfte Microsoft.Office.Tools.SmartTagCollection ab.

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

Syntax

<BrowsableAttribute(False)> _
Public ReadOnly Property VstoSmartTags As SmartTagCollection

Dim instance As Workbook
Dim value As SmartTagCollection

value = instance.VstoSmartTags

[BrowsableAttribute(false)]
public SmartTagCollection VstoSmartTags { get; }

Eigenschaftenwert

Typ: Microsoft.Office.Tools.SmartTagCollection

Die mit der Arbeitsmappe verknüpfte Microsoft.Office.Tools.SmartTagCollection.

Beispiele

Im folgenden Codebeispiel wird ein Smarttag erstellt, mit dem die Schriftfarbe einer Zelle auf Blau festgelegt wird, wenn der Begriff "blue" (Blau) erkannt wird. Das Smarttag wird der Arbeitsmappe mithilfe der VstoSmartTags-Eigenschaft hinzugefügt.

Diese Version bezieht sich auf eine Anpassung auf Dokumentebene.

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

Private Sub AddSmartTag()
    Dim ColorTag As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag")

    Dim ColorText As New  _
        Microsoft.Office.Tools.Excel.Action("Color text blue")
    AddHandler ColorText.Click, AddressOf ColorText_Click

    ColorTag.Actions = _
        New Microsoft.Office.Tools.Excel.Action() {ColorText}
    ColorTag.Terms.Add("blue")
    Me.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

private void AddSmartTag()
{
    Microsoft.Office.Tools.Excel.SmartTag colorTag =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag");

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

    colorTag.Actions =
        new Microsoft.Office.Tools.Excel.Action[] { colorText };
    colorTag.Terms.Add("blue");
    this.VstoSmartTags.Add(colorTag);
}

private void colorText_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue);
}

Diese Version bezieht sich auf ein Add-In auf Anwendungsebene.

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

Private Sub AddSmartTag()
    Dim vstoWorkbook As Workbook = Me.Application.ActiveWorkbook.GetVstoObject()
    Dim ColorTag As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag")

    Dim ColorText As New  _
        Microsoft.Office.Tools.Excel.Action("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

private void AddSmartTag()
{
    Microsoft.Office.Tools.Excel.SmartTag colorTag =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag");

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

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

    colorTag.Actions =
        new Microsoft.Office.Tools.Excel.Action[] {
            colorText };
    colorTag.Terms.Add("blue");
    vstoWorkbook.VstoSmartTags.Add(colorTag);
}

private void colorText_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue);
}

Berechtigungen

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.