MS Excel
Téma: Hypertextový odkaz ovládací prvek 
Zaslal/a tajgers 19.5.2020 2:10
Dobrý den,
Chtěl jsem se zeptat na radu, mam níže uvedené makro které má za ušel otevírat externí odkazy v měřítku 60%
Ale funguje to pouze na hypertekovyodkaz v buňce a já potřebuji ať to funguje při kliknouti třeba na obrázek nebo jiny ovládací prvek.
Hypertexoveodkazy neustále se mění.
Předem děkuji všem za ochotu a pomoc 
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
Uživatelské menu
\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.
RSS nejnovější články