잠금 화면 비율 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