Добрый день! Проблема следующая: имеется набор ссылок (больше 100), по которым находятся картинки. Ссылки располагаются в столбцах, в одной ячейке может находиться от 1 до нескольких ссылок, каждая ссылка начинается с новой строки. Можно ли реализовать каким-то образом решение, при котором бы в соседних ячейках подгружались картинки по указанным ссылкам? Заранее благодарю!
Здравствуйте. Код корявый, требует доработки в плане подстройки изображения по размеру ячейки.
Код
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
Добрый день! Спасибо за код, но, к сожалению, он работает не совсем корректно. Ячейки не подстраиватся под размер картинки, поэтому происходит наложение изображений, также если в ячейке указано более одной ссылки, макрос не подгружает несколько картинок, а выдаёт ошибку. Может быть это можно как-то решить? С размером картинок разобрался, но с подгоном ячеек по размеру, а также загрузок более одной картинки не получается. Буду признателен за помощь.
А как Вам помочь, если примера с описанием чего есть и чего хочу нет.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Пока так. Потом может допилю время будет. Ну или сами.
Скрытый текст
Код
Sub Kartinki()
Dim i&, s&
Dim n%, k%
Dim a() As String
On Error Resume Next
With ActiveSheet
.Columns(2).ColumnWidth = 60
s = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 3 To s
a() = Split(.Cells(i, 1).Text, Chr(10), , vbTextCompare)
k = UBound(a())
If k <> -1 Then
.Rows(i).RowHeight = 150 * (k + 1)
For n = 0 To k
With .Pictures.Insert(Trim(a(n)))
.Height = 150
.Left = ActiveSheet.Cells(i, 2).Left
.Top = ActiveSheet.Cells(i, 2).Top + n * 150
End With
Next
End If
Next i
End With
If Err.Number <> 0 Then MsgBox "В ходе загрузки изображений произошли ошибки", vbExclamation, "Ошибки"
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.