Excel VBA – kursor myszy “hand” dla linku

1 Comment

W poprzednim wpisie pokazałem prosty (w dodatku nie mój, co wskazałem w źródle) sposób na utworzenie linku z kontrolki Label. Ale co to za link, który po najechaniu nań myszą nie zmienia jej kursora na klasyczną “rączkę”, do której wszyscy przywykliśmy?

Jak się okazuje, nie ma możliwości pokazania takiego kursora (przynajmniej do wersji Office 2003, na jakiej pracuję) z poziomu właściwości MousePointer obiektu. Ale mimo wszystko da się, jak wykazuje GHolden w wątku traktującym właśnie o tym problemie.

Read More…

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]