Страницы: 1
RSS
Вставка вертикальных картинок улетает из ячейки в сторону (vba)
 
Здравствуйте. Имеется скрипт, который веб ссылки на картинки и преобразует в картинки. Всё бы ничего, но вот такая беда с вертикальными фотками, что улетают в сторону. Помогите обуздать сие проблему, фиксануть скрипт. Пусть уж лучше будет плоско выглядеть, чем так. Или как вариант поворачивать на 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
Изменено: jiumohoo - 23.09.2021 00:01:23
 
Offset(0, 0) - зачем это?
Страницы: 1
Читают тему (гостей: 1)
Наверх