Страницы: 1
RSS
Получение данных из интернета по ссылкам, расположенным в ячейках, Получение данных из интернета по ссылкам, расположенным в ячейках
 
Добрый день!
Проблема следующая: имеется набор ссылок (больше 100), по которым находятся картинки.
Ссылки располагаются в столбцах, в одной ячейке может находиться от 1 до нескольких ссылок, каждая ссылка начинается с новой строки.
Можно ли реализовать каким-то образом решение, при котором бы в соседних ячейках подгружались картинки по указанным ссылкам?
Заранее благодарю!
Изменено: Alex213 - 16.12.2019 01:48:44
 
Здравствуйте.
Код корявый, требует доработки в плане подстройки изображения по размеру ячейки.

Код
Sub Macro2()
y = Cells(Rows.Count, 1).End(xlUp).Row
For b = 3 To y    
a = Range("A" & b)    
Range("B" & b).Select    
ActiveSheet.Pictures.Insert(a).Select    
Selection.ShapeRange.ScaleWidth 0.3, msoFalse, msoScaleFromTopLeft    
Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft
Next b
End Sub

Изменено: turbidgirl - 13.12.2019 11:48:44
 
Добрый день!
Спасибо за код, но, к сожалению, он работает не совсем корректно. Ячейки не подстраиватся под размер картинки, поэтому происходит наложение изображений, также если в ячейке указано более одной ссылки, макрос не подгружает несколько картинок, а выдаёт ошибку. Может быть это можно как-то решить? С размером картинок разобрался, но с подгоном ячеек по размеру, а также загрузок более одной картинки не получается. Буду признателен за помощь.  
 
А как Вам помочь, если примера с описанием чего есть и чего хочу нет.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Спасибо за помощь, файл во вложении.
 
Пока так. Потом может допилю время будет. Ну или сами.
Скрытый текст
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Огромное спасибо!!! Обязательно разберу каждую строчку кода.
Страницы: 1
Наверх