禁用locking长宽比VBA – Excel

我已经阅读了几个论坛，但他们似乎都没有为我工作。

我从网上拉图片，并将其插入到我的电子表格中。 我希望所有这些图片具有相同的维度。

我的代码如下：

Dim img_url as string, picture as object img_url = Range("A1") 'Some url with an img With ActiveSheet.Pictures Set Picture = ActiveSheet.Pictures.Insert(img_url) Picture.LockAspectRatio = msoFalse Picture.Width = 25 PictureHeight = 25 End With 

每次我运行它时，locking长宽比设置仍然被检查，并且图像不是我正在寻找的方形格式。

任何意见将不胜感激。

谢谢

Answer 1

使用下面的代码， LockAspectRatio属性是Picture.ShapeRange对象的属性，而不是Picture 。

 Option Explicit Sub ImageAttributes() Dim img_url As String Dim picture As Object img_url = Range("A1") 'Some url with an img With ActiveSheet Set picture = .Pictures.Insert(img_url) With picture With .ShapeRange .LockAspectRatio = msoFalse .Width = 25 .Height = 25 End With End With End With End Sub