엑셀 VBA 칸에 맞게 사진 사이즈 조정하기

최근 엑셀 파일에 사진을 넣는데, 자동화 시킬 필요가 있었다.

사이즈를 클릭 한 번으로 조절하고 칸에 맞춰보자

Sub 사진조정()

'
' 크기조절, 위치이동
' 단위는 point 단위
'
    Selection.Placement = xlMoveAndSize
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.IncrementLeft 1.3636220472
    Selection.ShapeRange.IncrementLeft 1.3636220472
    Selection.ShapeRange.IncrementTop 1.3636220472
    Selection.ShapeRange.IncrementTop 1.3636220472
    Selection.ShapeRange.Height = 125.85826772
    Selection.ShapeRange.Width = 210.8976378
    
End Sub