调整图片的宽度和高度

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