excel - 调整图片宽度和高度

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

它会将图片插入到应有的位置，但不会调整高度或宽度，正如我在下面的屏幕截图中看到的那样

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

测试子例程。

Answer 1

看起来您正在尝试将图像定位在合并范围内，因此请尝试

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