在 Excel VBA 中调整图片大小

Question

我有一个 VBA 脚本，它将获取图片并将它们粘贴到 Excel 中的特定单元格中，具体取决于另一个单元格的值。

Public Function PictureLookup(Value As String, Location As Range, Index As Integer)

Application.Volatile

Dim lookupPicture As Shape
Dim sheetName As String
Dim picTop As Double
Dim picLeft As Double

sheetName = Location.Parent.Name

'Delete current picture with the same Index if exists
For Each lookupPicture In Sheets(sheetName).Shapes
    If lookupPicture.Name = "PictureLookup" & Index Then
        lookupPicture.Delete
    End If
Next lookupPicture

'Get position of cell calling the UDF
picTop = Location.Top
picLeft = Location.Left

'Add the picture in the right location
Set lookupPicture = Sheets(sheetName).Shapes.AddPicture _
("G:\My Drive\MY FOLDER\LOGOS\" & Value & ".jpg", msoFalse, msoTrue, picLeft, picTop, -1, -1)

'change the picture name
lookupPicture.Name = "PictureLookup" & Index

PictureLookup = ""

End Function

目前，图片以其原始大小插入 Excel。我希望它们都具有 0.38x0.38 的确切尺寸。我似乎无法弄清楚要在脚本中更改哪些属性才能发生这种情况。

谢谢

Answer 1

lookupPicture.Height = 38
lookupPicture.Width = 38

---

这是缩放属性Width和Height的方法：

lookupPicture.ScaleWidth 10, msoFalse, msoScaleFromTopLeft
lookupPicture.ScaleHeight 10, msoFalse, msoScaleFromTopLeft

MSDN Shape.ScaleWidth Method

按指定因子缩放形状的宽度。对于图片和 OLE 对象，您可以指示是否要相对于原始大小或当前大小缩放形状。图片和 OLE 对象以外的形状总是相对于它们的当前宽度进行缩放。