在VBA中缩放图片

Question

目前我正在尝试在VBA中缩放图片,但似乎无法得到我需要的东西.每次我跑......

ActiveSheet.Pictures.Insert("C:\\\Logo.bmp").Select
            With Selection
                  .ShapeRange.ScaleWidth 1.4, msoTrue
                  .ShapeRange.ScaleHeight 0.5, msoFalse
             End With 

它最初将缩放到正确的宽度,但是当我转到下一行并尝试缩放高度时,它会改变宽度.有人可以帮助我理解为什么会发生这种情况,并建议一种更好的缩放图片的方法.我需要它长约125%,高度减少约50%.

非常感谢.

Answer 1

包括这一行:

.ShapeRange.LockAspectRatio = msoFalse

要允许"解锁"宽度和高度,请将其放在顶部.

With Selection
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.ScaleWidth 1.4, msoTrue
    .ShapeRange.ScaleHeight 0.5, msoFalse
End With