MS Excel

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.citovat

Ach ľudia, ľudia, moje chabé nervy ....
Čo znamená "Nefunguje mi to." ???
Vyhodí ten MsgBox "Chyba" ?
Makro sa zastaví na niektorom riadku? (Na ktorom?)
Makro spadne a vyhodí nejakú chybu? (Akú - screenshot)
Otvorí sa prehliadač, ale v nič v ňom nie je?
Otvorí sa prehliadač, ale stránka vypíše nejakú chybu? (Akú? - kód, screenshot)
Otvorí sa iná, ako požadovaná stránka?
Nič sa neotvorí, nič nezahlási, nič nespadne?
Skúste dať na riadok "On Error ..." BreakPoint (klik na ten zvislý obdĺžnik vedľa kódu - bordová značka) a do okna Watches si dajte
ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
To je adresa bunky, v ktorej sa nachádza ľavý horný roh obrázku, na ktorý ste práve klikli. Je správny?
Začína ten odkaz na "https://" ?
Netreba sa na tú stránku prihlasovať?
Dajte tie linky, ktoré nejdú...citovat

Všetky Vami spomenuté stránky (existujúce) mi fungujú v tom súbore, čo som Vám poslal. Žiadna nevypíše chybu. Iba jedna z nich neexistuje:
www-cns.mkcr.cz/cns_internet/
Na MKCR uvedený link existuje, no nefunkčný.
https://www.mkcr.cz/rejstriky-registrovanych-cirkvi-a-nabozenskych-spolecnosti-a-dalsich-pravnickych-osob-467.html

Priložte Vašu prílohu (anonymizovanú, so zachovaným rozložením, typom dát, formátom, zlúčeniami a pod) !
Urobte kurnik aspoň niekto niekedy na prvý krát, to čo Vám pomáhajúci radí, alebo čo od Vás chce ! Čo teda ten BreakPoint ?

Teraz som to písal aj na iné fórum - onedlho sa Vám na to milí užívatelia, tí pomáhajúci viete čo, ak nebudete spolupracovať na riešení VAŠEHO problému.

OT: Neviem či mám ísť vôbec aj čítať ďalšie témy, aký som dnes nasratý, tak Vás tu budem kosiť do radu ... citovat

Tak uvidíme, kde je ten pes zakopaný. Dúfam, že som myslel na všetky možné eventuality:
Sub Click()
Dim Nazev_Stlaceneho_Obrazku As String
Dim Link_Stranky As String
Dim Adresa_Bunky_Pod_Obrazkem As String

On Error Resume Next
Nazev_Stlaceneho_Obrazku = Application.Caller
If Nazev_Stlaceneho_Obrazku = "" Then MsgBox "Makro nebylo spuštěno kliknutím na obrázek nad linkem.", vbExclamation: Exit Sub

With ThisWorkbook.ActiveSheet.Shapes(Application.Caller)
Adresa_Bunky_Pod_Obrazkem = .TopLeftCell.Address(0, 0)
Link_Stranky = .TopLeftCell.Value
End With

If Link_Stranky = "" Then MsgBox "Pod obrázkem """ & Nazev_Stlaceneho_Obrazku & """ v buňce " & Adresa_Bunky_Pod_Obrazkem & " není vyplněný link.", vbExclamation: Exit Sub

On Error GoTo CHYBA
ThisWorkbook.FollowHyperlink Address:=Link_Stranky
Exit Sub

CHYBA:
MsgBox "Jiná neošetřená chyba", vbExclamation
End Subcitovat

Myslíte VBA UserForm ?citovat