Partager via


Workbook.SheetFollowHyperlink, événement (System 2007)

Mise à jour : novembre 2007

Se produit lors d'un clic sur un lien hypertexte dans un classeur.

Espace de noms :  Microsoft.Office.Tools.Excel
Assembly :  Microsoft.Office.Tools.Excel.v9.0 (dans Microsoft.Office.Tools.Excel.v9.0.dll)

Syntaxe

Public Event SheetFollowHyperlink As WorkbookEvents_SheetFollowHyperlinkEventHandler

Dim instance As Workbook
Dim handler As WorkbookEvents_SheetFollowHyperlinkEventHandler

AddHandler instance.SheetFollowHyperlink, handler
public event WorkbookEvents_SheetFollowHyperlinkEventHandler SheetFollowHyperlink

Exemples

L'exemple de code suivant illustre un gestionnaire pour l'événement SheetFollowHyperlink. Le gestionnaire d'événements conserve une liste de tous les liens hypertexte dans le classeur actuel sur lequel l'utilisateur a cliqué, plus les noms des feuilles de calcul qui contiennent ces liens hypertexte, dans un contrôle ListBox.

Cet exemple illustre une personnalisation au niveau du document.

Private ListBox1 As ListBox

Private Sub WorkbookSheetFollowHyperlink()
    ListBox1 = Globals.Sheet1.Controls.AddListBox( _
        Globals.Sheet1.Range("B2", "C3"), "listBox1")
End Sub


Sub ThisWorkbook_SheetFollowHyperlink(ByVal Sh As Object, _
    ByVal Target As Excel.Hyperlink) Handles Me.SheetFollowHyperlink

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

private void 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);
}

Autorisations

Voir aussi

Référence

Workbook, classe

Membres Workbook

Microsoft.Office.Tools.Excel, espace de noms