Приветствую.
Прошу помощи.
Столкнулся с прайсом в котором картинки вставлены в ячейки как гиперссылки
Задача вытащить из картинок сами линки и вставить вместо картинок (удалить картинки)
попробовал стандартным способом, но он почему-то выдает ошибку.
Прошу помощи.
Столкнулся с прайсом в котором картинки вставлены в ячейки как гиперссылки
Задача вытащить из картинок сами линки и вставить вместо картинок (удалить картинки)
попробовал стандартным способом, но он почему-то выдает ошибку.
Код |
---|
Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 6).Value = HL.Address Next End Sub |