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
- Confiança total para o chamador imediato. O membro não pode ser usado por código parcialmente confiável. Para obter mais informações, consulte Usando bibliotecas de códigos parcialmente Confiável.