vba - 如何调整工作表上所有图像的大小？

Question

我在工作表上有几张图片。我想将它们全部调整为相同的大小，但我似乎无法让它正常工作。我以为它会像下面的代码一样，但这实际上使所有东西的大小都不同。

Sub ChangeAllPics()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Select
    s.Width = 500
    s.Height = 200
Next s
End Sub

Answer 1

我认为你只是错过了一件小事。默认情况下(当我测试它时)插入工作表的图像有 LockAspectRatio=True .

您需要将其设置为 False ，否则更改可能无法预测:如果您使用 F8 单步执行代码，您可以观察到 Width更改，但随后在下一行 Height恢复以前的宽度变化。

因此，将此设置为 false 并且图像应保留指定的宽度/高度。

Option Explicit
Sub ChangeAllPics()
Dim s As Shape
Dim ws As Worksheet
Set ws = ActiveSheet

For Each s In ActiveSheet.Shapes
    s.LockAspectRatio = msoFalse
    s.Width = 500
    s.Height = 200

Next s
End Sub