Здравствуйте. Имеется скрипт, который веб ссылки на картинки и преобразует в картинки. Всё бы ничего, но вот такая беда с вертикальными фотками, что улетают в сторону. Помогите обуздать сие проблему, фиксануть скрипт.
Пусть уж лучше будет плоско выглядеть, чем так.
Или как вариант поворачивать на 90 градусов, тогда по сути должно красиво растягиваться в ячейке.
Код |
---|
Public Sub Add_Images_To_Cells()
Dim lastRow As Long
Dim URLs As Range, URL As Range
Dim pic As Picture
Dim urlColumn As String
With ActiveSheet
urlColumn = "H"
lastRow = .Cells(Rows.Count, urlColumn).End(xlUp).Row
Set URLs = .Range(urlColumn & "2:" & urlColumn & lastRow)
End With
For Each URL In URLs
If InStr(URL.Value, "http") > 0 Then
URL.Offset(0, 0).Select
Set pic = URL.Parent.Pictures.Insert(URL.Value)
With pic.ShapeRange
.LockAspectRatio = msoFalse
.Height = URL.Offset(0, 0).Height - 1
.Width = URL.Offset(0, 0).Width - 1
.LockAspectRatio = msoTrue
End With
DoEvents
End If
Next
End Sub |