1. 원래 그렇지 않습니다.^.^

버턴을 누르기 전에 마우스커스를 이미지를 넣고 싶은 셀에 두세요.

2. 정확하지는 않지만 아래 같이 해 보세요.(저도 해 보지는 않았습니다.)

[수정전]
.LockAspectRatio = msoFalse
End With

[수정후]
.LockAspectRatio = msoTrue

.ScaleHeight 1, msoTrue

.ScaleWidth 1, msoTrue

End With

근데 이렇게 하면 지정한 셀에 맞추어 지지 않습니다.

삽입 후 일일이 셀에 맞추어 주어야 합니다.

아님 수정전 메크로로 이미지 넣어시고 이미지를 더블 클릭하시면 상단 메뉴에 

"그림 압축"메뉴가 보이실 것입니다.

 해상도를 적당히 조정하세요.

아님

[다른 이름으로 저장] 메뉴 아래쪽 [도구 - 그림압축] 메뉴에서 호출할 수 있습니다. 

[그림 압축] 메뉴에서 원하는 크기의 ppi를 선택하고 확인 버튼을 클릭하면 됩니다. 

(여기서는 전자메일 항목을 선택했습니다.)