ロックアスペクト比を無効にするVBA - Excel

Question

私はいくつかのフォーラムを読んだことがありますが、どれも私のために働いていないようです。

私はウェブから画像を引き出し、スプレッドシートに挿入しています。私はこれらの写真のすべてが同じ次元を持つことを望みます。

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 

私はそれを実行するたびに、縦横比を固定する設定がまだチェックされ、画像は私が探しているの正方形フォーマットではありません。次のように

私のコードです。

アドバイスをいただければ幸いです。

おかげ

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