Mě napadá pouze toto. Je to primitivní, ale účel to plní. 
Příloha: 
46576_odkaz.zip (15kB, staženo 27x)
citovat46576_odkaz.zip (15kB, staženo 27x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: HYPERTEXTOVÝ.ODKAZ lupa 60%
MS Excel
Téma: HYPERTEXTOVÝ.ODKAZ lupa 60% 
Zaslal/a tajgers 7.5.2020 18:06
Dobrý den,
Prosím o radu ,
Mam Excel soubor v kterém mam spoustu Hypertextových odkazu a potřebuji ať každý se otevře v meřítku 60%
Děkuji moc za pomoc .
Funguje to ale zřejmě jsem špatně popsal problém,
V Excelu mam hypertextový odkazy na externí sešit, a myslel jsem že je možnost před adresu odkazu přidat vba kód a odkaz se otevře v měřítku 60%.
Přes makro to taky funguje ale bohužel názvy souboru se mění a já jen měním cestu odkazu.
Těch odkazu je cca 50 po každé přepisovat makro se mi nechce.
Neexistuje nějaký globální řešenicitovat
.Funguje to ale zřejmě jsem špatně popsal problém,
V Excelu mam hypertextový odkazy na externí sešit, a myslel jsem že je možnost před adresu odkazu přidat vba kód a odkaz se otevře v měřítku 60%.
Přes makro to taky funguje ale bohužel názvy souboru se mění a já jen měním cestu odkazu.
Těch odkazu je cca 50 po každé přepisovat makro se mi nechce.
Neexistuje nějaký globální řešenicitovat
Ak iba aktívny list linkovaného zošitu tak:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveWindow.Zoom = 60
End Sub
ak všetky listy linkovaného zošitu tak:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet
Application.ScreenUpdating = False
Set bAct = ActiveWorkbook.ActiveSheet
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
ActiveWindow.Zoom = 60
Next WS
bAct.Activate
Application.ScreenUpdating = True
End Sub
prípadne použiť pole názvov listov a zoomovať ich naraz:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet, L As String
Application.ScreenUpdating = False
With ActiveWorkbook
Set bAct = .ActiveSheet
For Each WS In .Worksheets
L = L & IIf(LenB(L) = 0, vbNullString, "?") & WS.Name
Next WS
.Worksheets(Split(L, "?")).Select
End With
ActiveWindow.Zoom = 60
bAct.Select
Application.ScreenUpdating = True
End Sub
Makro dať do modulu ThisWorkbook keď chcem "chytať" všetky linky v našom zošite (vo všetkých listoch), alebo do modulu daného listu ktorý chceme checkovať, len potom je definičný riadok procedúry iný
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)citovat
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveWindow.Zoom = 60
End Sub
ak všetky listy linkovaného zošitu tak:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet
Application.ScreenUpdating = False
Set bAct = ActiveWorkbook.ActiveSheet
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
ActiveWindow.Zoom = 60
Next WS
bAct.Activate
Application.ScreenUpdating = True
End Sub
prípadne použiť pole názvov listov a zoomovať ich naraz:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet, L As String
Application.ScreenUpdating = False
With ActiveWorkbook
Set bAct = .ActiveSheet
For Each WS In .Worksheets
L = L & IIf(LenB(L) = 0, vbNullString, "?") & WS.Name
Next WS
.Worksheets(Split(L, "?")).Select
End With
ActiveWindow.Zoom = 60
bAct.Select
Application.ScreenUpdating = True
End Sub
Makro dať do modulu ThisWorkbook keď chcem "chytať" všetky linky v našom zošite (vo všetkých listoch), alebo do modulu daného listu ktorý chceme checkovať, len potom je definičný riadok procedúry iný
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)citovat
Funguje to skvěle ale pouze na hypertextový odkaz z textu a když přidám odkaz na ovládací prvek nebo obrázek tak už to nefunguje
Zřejmě to chce změnit definiční řádek procedury
Ale na žádný jsem nepřišel
Nevíte náhodou jak na to ?citovat
Zřejmě to chce změnit definiční řádek procedury
Ale na žádný jsem nepřišel
Nevíte náhodou jak na to ?citovat
S tým žiaľ nepomôžem ...citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
Čas od do
jarek1111 • 18.4. 8:31
Makro smyčka
MilanKop • 18.4. 7:18
Makro smyčka
elninoslov • 18.4. 0:18
Makro smyčka
MilanKop • 17.4. 21:33
RSS nejnovější články