Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вытащить линки картинок из гиперссылок
 
Приветствую.
Прошу помощи.
Столкнулся с прайсом в котором картинки вставлены в ячейки как гиперссылки
Задача вытащить из картинок сами линки и вставить вместо картинок (удалить картинки)
попробовал стандартным способом, но он почему-то выдает ошибку.
Код
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 6).Value = HL.Address
Next
End Sub
 
Цитата
Антон написал:
ActiveSheet.Hyperlinks
не то же самое, что Shapes(1).Hyperlinks
Вам надо идти циклом по всем Shapes, проверять, что это картинка(if Shapes(1).Type = 13 then) и извлекать из неё гиперссылку.
Правда, возможно будет проблема с определением позиции картинок относительно ячеек. Но возможно, поможет Shapes(1).TopLeftCell
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Понял, благодарю.
Страницы: 1
Читают тему (гостей: 1)
Наверх