Partilhar via


Action Classe (sistema de 2007)

Representa um Visual Studio Tools for Office marca SMART ação em uma pasta de trabalho do Microsoft Office Excel.

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

Sintaxe

<PermissionSetAttribute(SecurityAction.Demand, Name := "FullTrust")> _
Public Class Action _
    Inherits ActionBase

Dim instance As Action
[PermissionSetAttribute(SecurityAction.Demand, Name = "FullTrust")]
public class Action : ActionBase

Comentários

As ações são as escolhas disponível no marca SMART menu de atalho quando um marca SMART de um certo tipo é reconhecido.Um exemplo de uma ação possível é o nome "Adicionar nome na pasta Contatos" para uma seqüência de caracteres do tipo Person.Para obter mais informações sobre Rótulos inteligentes a Visual Studio Tools for Office, consulte Arquitetura de marcas inteligentes.

Exemplos

O exemplo de código a seguir cria um SmartTag com um Actionque reconhece a termo "vendas" e a expressão regular "Ssue\s\d [a|a] {5,6}". A ação modifica a legenda do menu de ação em time de execução e exibe o endereço do texto foi reconhecido.Para testar o exemplo, digite a palavra "vendas" em uma célula e a seqüência de caracteres "problema 12345" em outra célula e, em seguida, tente o marca SMART ação.

Este exemplo é para uma personalização em nível de documento.

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

PrivateSub AddSmartTag()
    Dim smartTagDemo AsNew  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.microsoft.com/Demo#DemoSmartTag", _
        "Demonstration Smart Tag")

    ' Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale")
    smartTagDemo.Expressions.Add( _
        New System.Text.RegularExpressions.Regex( _
        "[I|i]ssue\s\d{5,6}"))

    ' Create the action.
    displayAddress = New Microsoft.Office.Tools.Excel.Action( _
        "To be replaced")

    ' Add the action to the smart tag.
    smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() { _
            displayAddress}

    ' Add the smart tag.Me.VstoSmartTags.Add(smartTagDemo)
EndSubPrivateSub OpenMessageBox_BeforeCaptionShow(ByVal sender AsObject, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

    Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
        TryCast(sender, Microsoft.Office.Tools.Excel.Action)

    If clickedAction IsNotNothingThen
        clickedAction.Caption = "Display the address of " & e.Text
    EndIfEndSubPrivateSub DisplayAddress_Click(ByVal sender AsObject, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
    Handles DisplayAddress.Click

    Dim smartTagAddress AsString = e.Range.Address( _
        ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
    MsgBox("The recognized text '" & e.Text & _
            "' is at range " & smartTagAddress)
EndSub
private Microsoft.Office.Tools.Excel.Action displayAddress;

privatevoid AddSmartTag()
{
    Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.microsoft.com/Demo#DemoSmartTag",
        "Demonstration Smart Tag");

    // Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale");
    smartTagDemo.Expressions.Add(
        new System.Text.RegularExpressions.Regex(
        @"[I|i]ssue\s\d{5,6}"));

    // Create the action.
    displayAddress = new Microsoft.Office.Tools.Excel.Action(
        "To be replaced");

    // Add the action to the smart tag.
    smartTagDemo.Actions = new Microsoft.Office.Tools.Excel.Action[] { 
        displayAddress };

    // Add the smart tag.this.VstoSmartTags.Add(smartTagDemo);

    displayAddress.BeforeCaptionShow += new 
        Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
        DisplayAddress_BeforeCaptionShow);

    displayAddress.Click += new 
        Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        DisplayAddress_Click);
}

void DisplayAddress_BeforeCaptionShow(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    Microsoft.Office.Tools.Excel.Action clickedAction =
        sender as Microsoft.Office.Tools.Excel.Action;

    if (clickedAction != null)
    {
        clickedAction.Caption = "Display the address of " +
            e.Text;
    }
}

void DisplayAddress_Click(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    string smartTagAddress = e.Range.get_Address(missing,
        missing, Excel.XlReferenceStyle.xlA1, missing, missing);
    System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
        "' is at range " + smartTagAddress);
}

Hierarquia de herança

System.Object
  Microsoft.Office.Tools.ActionBase
    Microsoft.Office.Tools.Excel.Action

Acesso thread-safe

Quaisquer membros static (Shared no Visual Basic) públicos deste tipo são thread-safe. Não há garantia de que qualquer membro de instância seja thread-safe.

Consulte também

Referência

Membros Action

Namespace Microsoft.Office.Tools.Excel

SmartTag

Outros recursos

Arquitetura de marcas inteligentes

Como: Adicionar marcas inteligentes a pastas de trabalho do Excel

Como: Criar marcas inteligentes com identificadores Personalizars no Excel