Здравствуйте! Подскажите, пожалуйста, как с помощью макроса можно открыть гиперссылку такого вида:
Пробовал так:
Обычные гиперссылки открываются, а формулы-гиперссылки - нет.
Заранее благодарен!
Код |
---|
=ГИПЕРССЫЛКА(".\"&D9&".JPG";D9) |
Код |
---|
Sub FollowHypelink() On Error Resume Next If InStr(1, ActiveCell.Formula, "hyperlink", vbTextCompare) > 0 Then ThisWorkbook.FollowHyperlink Evaluate(ActiveCell.Formula) Else ActiveCell.Hyperlinks(1).Follow End If End Sub |
Заранее благодарен!