Søg
Avatar billede staal84 Nybegynder
17. januar 2006 - 09:22 Der er 6 kommentarer og
1 løsning

Activewindow.zoom ved klik på hyperlink

Private Sub Worksheet_FollowHyperlink()
Columns("A:v").Select
    Range("P1").Activate
    ActiveWindow.Zoom = True
    Range("A1").Select
End Sub

Jeg klikker løs, men ingenting sker. Jeg kan godt køre makroen manuelt.
Jeg har mange ark, skal jeg gøre noget specielt for, at denne makro gælder alle ark.

På forhånd tak.
Avatar billede bak Forsker
17. januar 2006 - 11:22 #1
Prøv at indsætte dette i kodemodulet ThisWorkBook

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
  With Range(Target.SubAddress).Parent
      .Range("A:V").Select
      ActiveWindow.Zoom = True
      .Range("A1").Select
  End With
End Sub
Avatar billede staal84 Nybegynder
17. januar 2006 - 11:50 #2
Har prøvet at indsætte koden i modulet "thisworkbook", men der sker intet. Har du andre forslag Bak? Er der noget, jeg skal tage højde for?
Avatar billede bak Forsker
17. januar 2006 - 11:59 #3
prøv lige at hent dette eksempel
www.tbdl.dk/excel/Book1.xls
Avatar billede staal84 Nybegynder
17. januar 2006 - 12:51 #4
Aaaaahhh. Har fundet ud af at det virker når jeg hyperlinker fra en bestemt celle. Jeg har derimod en masse obejkter som fungere som hyperlinks, men her virker koden ikke. Har du forslag til hvordan jeg løser dette?
Avatar billede bak Forsker
17. januar 2006 - 15:43 #5
Kan jeg ikke lige gennemskue umiddelbart, men som en slags erstatning kan du måske bruge denne makro, der skal ligge i ThisWorkBook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Sh.Range("A:V").Select
  ActiveWindow.Zoom = True
  Sh.Range("A1").Select
End Sub
Avatar billede staal84 Nybegynder
18. januar 2006 - 08:33 #6
Det virker. Hvad er det "Sh." betyder? Læg et svar så får du dine velfortjente point.
Avatar billede bak Forsker
18. januar 2006 - 08:48 #7
sh er bare det ark, man aktiverer.
Det er givet på forhånd i første linie.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 I går 16:05 I går 16:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 I går 02:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:50 Slet lokal konto Af ErikHg i Windows
I går 16:05 Ændre tal i en celle Af xvid i Excel
I går 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »