Excel VBA – link dla Label

No Comments

Będzie krótko. Niektórzy czasem potrzebują linka zrobionego z kontrolki Label. Co należy zrobić?

  1. Umieszczamy Label na UserForm.
  2. Opisujemy i formatujemy (zwykle niebieski kolor i podkreślenie).
  3. Zdarzenie Click obsługujemy następującym kodem:
Private Sub LabelLink_Click()
    href = "http://moja.strona.pl"
    On Error GoTo blad
    ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
    Exit Sub
blad:
    MsgBox "Nie można otworzyć " & href, , vbExclamation, "BŁĄD"
End Sub

Zrobione :)

[źródło: spreadsheetpage]

Leave a Reply

Your email address will not be published. Required fields are marked *