Active 시트상의 사진을 특정 셀에 맞게 크기 조절하여 넣는vba 코드

Sub Macro1()
Dim objRng As Range
Set objRng = ActiveSheet.Range("A3:F15")
With ActiveSheet.Shapes(1) 'shapes(1)은 shape개체순서를 지정하여 해당 개체를 지정된 영역에 삽입
.LockAspectRatio = msoFalse
'LockAspectRatio : True이면 크기를 조정할 때 지정한 도형의 원래 비율이 유지됩니다.
'msoFalse. 도형의 크기를 조정할 때 도형의 높이와 너비를 서로 독립적으로 변경할 수 있습니다.
.Top = objRng.Top
.Left = objRng.Left
.Height = objRng.Height
.Width = objRng.Width
End With
End Sub