Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вытащить линки картинок из гиперссылок
 
#1
03.04.2018 09:29:20
Приветствую.
Прошу помощи.
Столкнулся с прайсом в котором картинки вставлены в ячейки как гиперссылки
Задача вытащить из картинок сами линки и вставить вместо картинок (удалить картинки)
попробовал стандартным способом, но он почему-то выдает ошибку.
Код
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 6).Value = HL.Address
Next
End Sub
 
 
 
#2
03.04.2018 09:37:36
Цитата
Антон написал:
ActiveSheet.Hyperlinks
не то же самое, что Shapes(1).Hyperlinks
Вам надо идти циклом по всем Shapes, проверять, что это картинка(if Shapes(1).Type = 13 then) и извлекать из неё гиперссылку.
Правда, возможно будет проблема с определением позиции картинок относительно ячеек. Но возможно, поможет Shapes(1).TopLeftCell
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
03.04.2018 09:43:33
Понял, благодарю.
 
 
 
Страницы: 1
Наверх