Excel: получение гиперссылки из изображения в ячейке

Question

В листе Excel (создаваемом путем импорта внешних данных и изображений) находятся несколько ячеек, каждый из которых содержит разные изображения, а это изображение имеет гиперссылку. Эти ячейки, содержащие изображения, находятся в одной колонке.

Как получить эту гиперссылку с каждого изображения? Гиперссылка НЕ ​​извлекается из этой ячейки.

У меня есть пользовательская функция, которая легко извлекает гиперссылки из любой ячейки (если есть гиперссылка).

Function GetURL(rng As Range) As String 
On Error Resume Next 
GetURL = rng.Hyperlinks(1).Address 
End Function 

Эта функция может быть размещена в любом месте. Например: В ячейке c25 должен быть указан URL-адрес из гиперссылки в ячейке A1. Для этого просто введите следующую формулу в ячейку c25.

=GetURL(A1) 

Это работает просто отлично.

Однако, если эта ячейка A1 содержит изображение с гиперссылкой, тогда результат будет равен нулю (или ничего). Хотя гиперссылка присутствует как часть этого изображения.

По-видимому, изображение - это объект, который необходимо решить. Как это можно сделать?

Всего найдено possible duplicate. К сожалению, ответ меня не заставил. Пожалуйста, добавьте образец кода. Спасибо.

Answer 1

Форма также имеет гиперссылку. Адреса
Форма определена на листе, а также имеет имя.
Собираем их вместе, я придумал следующую функцию:

Function PicURL(Pic As String, Optional SheetName As String) As String 
If SheetName = "" Then SheetName = Application.Caller.Worksheet.Name 
On Error Resume Next 
PicURL = Sheets(SheetName).Shapes(Pic).Hyperlink.Address 
End Function 

Использование: Если картинка находится на том же листе, а затем =PicURL("Picture 1") возвращает целевой адрес.
Если изображение находится на другом листе, то потребуется =PicURL("Picture 1","Sheet1").
Если картинка находится в другом листе, тогда это совершенно другая игра с мячом, и я оставляю это как упражнение для читателя.