Отрегулируйте ширину и высоту картинки

Question

Я пытаюсь вставить изображение и изменить его размер в соответствии с шириной и высотой ячейки и поместить его в ячейку.

Это подпрограмма

Sub insertPictures(vPath, cellAddress)

Dim img As Picture, r As Range

Set img = IREP.Pictures.Insert(vPath)
Set r = IREP.Range(cellAddress)

With img
    .ShapeRange.LockAspectRatio = msoFalse
    .Top = r.Top
    .Left = r.Left
    .Width = r.Width
    .Height = r.Height
End With

End Sub

Вставляет картинкугде это должно быть, но не регулирует высоту или ширину, как вы можете видеть на скриншоте ниже, когда я делаю

Call PForm.insertPictures("C:\Users\vksk0\Pictures\Screenshots\Screen.png", "frontPic")

для проверки подпрограммы.

Answer 1

Похоже, вы пытаетесь расположить изображение в объединенном диапазоне, поэтому попробуйте

.Width = r.MergeArea.Width
.Height = r.MergeArea.Height