Napr. všetky obrázky odkážte na makro
Sub Click()
On Error GoTo CHYBA
ThisWorkbook.FollowHyperlink Address:=ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Value
Exit Sub
CHYBA:
MsgBox "Chyba", vbExclamation
End Sub
a bude sa otvárať tá stránka, čo je zapísaná v bunke pod ľavým horným rohom obrázku. Alebo obrázkom nastaviť normálne prepojenie, upresnite na ukážke.
Sub Click()
On Error GoTo CHYBA
ThisWorkbook.FollowHyperlink Address:=ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Value
Exit Sub
CHYBA:
MsgBox "Chyba", vbExclamation
End Sub
a bude sa otvárať tá stránka, čo je zapísaná v bunke pod ľavým horným rohom obrázku. Alebo obrázkom nastaviť normálne prepojenie, upresnite na ukážke.
Příloha: 53080_meniaci-sa-odkaz.zip (39kB, staženo 8x)
citovat