Compartilhar via


Evento Workbook.SheetFollowHyperlink (sistema de 2007)

Ocorre quando você clica em qualquer hiperlink em uma pasta de trabalho.

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

Sintaxe

Public Event SheetFollowHyperlink As WorkbookEvents_SheetFollowHyperlinkEventHandler

Dim instance As Workbook
Dim handler As WorkbookEvents_SheetFollowHyperlinkEventHandler

AddHandler instance.SheetFollowHyperlink, handler
public event WorkbookEvents_SheetFollowHyperlinkEventHandler SheetFollowHyperlink

Exemplos

O exemplo de código a seguir demonstra um manipulador para o SheetFollowHyperlink evento. O manipulador de eventos mantém uma lista de todos os hiperlinks na pasta de trabalho corrente clicados além dos nomes de planilhas que contêm esses hiperlinks em um ListBox controle.

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

Private ListBox1 As ListBox

PrivateSub WorkbookSheetFollowHyperlink()
    ListBox1 = Globals.Sheet1.Controls.AddListBox( _
        Globals.Sheet1.Range("B2", "C3"), "listBox1")
EndSubSub ThisWorkbook_SheetFollowHyperlink(ByVal Sh AsObject, _
    ByVal Target As Excel.Hyperlink) HandlesMe.SheetFollowHyperlink

    Dim sheet As Excel.Worksheet = CType(Sh, Excel.Worksheet)
    ListBox1.Items.Add(sheet.Name & ":" & Target.Address)
EndSub
private ListBox listBox1;

privatevoid WorkbookSheetFollowHyperlink()
{
    listBox1 = Globals.Sheet1.Controls.AddListBox(
        Globals.Sheet1.Range["B2", "C3"], "listBox1");

    this.SheetFollowHyperlink +=
        new Excel.WorkbookEvents_SheetFollowHyperlinkEventHandler(
        ThisWorkbook_SheetFollowHyperlink);
}

void ThisWorkbook_SheetFollowHyperlink(object Sh,
    Excel.Hyperlink Target)
{
    Excel.Worksheet sheet = (Excel.Worksheet)Sh;
    listBox1.Items.Add(sheet.Name + ":" + Target.Address);
}

Permissões

Consulte também

Referência

Workbook Classe

Membros Workbook

Namespace Microsoft.Office.Tools.Excel