Zdarzenie WorkbookBase.SheetFollowHyperlink
Występuje, gdy kliknij dowolne hiperłącze w skoroszycie.
Przestrzeń nazw: Microsoft.Office.Tools.Excel
Zestaw: Microsoft.Office.Tools.Excel.v4.0.Utilities (w Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)
Składnia
'Deklaracja
Public Event SheetFollowHyperlink As WorkbookEvents_SheetFollowHyperlinkEventHandler
public event WorkbookEvents_SheetFollowHyperlinkEventHandler SheetFollowHyperlink
Przykłady
Poniższy przykład kodu demonstruje obsługi dla SheetFollowHyperlink zdarzenia.Program obsługi zdarzeń przechowuje listę wszystkich hiperłączy w bieżącym skoroszycie, który został kliknięty, a także nazwy arkuszy, które zawierają te hiperłącza w ListBox kontroli.
Ten przykład dotyczy dostosowywania na poziomie dokumentu.
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);
}
Zabezpieczenia programu .NET Framework
- Pełne zaufanie do bezpośredniego wywołującego. Tego elementu członkowskiego nie można używać w kodzie częściowo zaufanym. Aby uzyskać więcej informacji, zobacz Używanie bibliotek pochodzących z częściowo zaufanego kodu.