Mě napadá pouze toto. Je to primitivní, ale účel to plní. 
Příloha: 
46576_odkaz.zip (15kB, staženo 28x)
citovat46576_odkaz.zip (15kB, staženo 28x)
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
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články