Вставка фото с сохранением пропорций и ограничением по длине или ширине

[odeon16]

Доброго времени.
Подскажите господа - как подправить макрос.

У меня макрос вставляет фото - по событию Change, при изменении ячейки с адресом.
И при этом задает ширину и высоту картинки. В итоге она безобразно растягивается.

Sub foto()
On Error Resume Next
Sheets(1).Shapes.AddPicture _
        Filename:=zzz, _
        linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, _
        Left:=lll, _
        Top:=ttt + 12.75, _
        Width:=300, _
        Height:=200
End Sub

Как сделать так, чтобы картинка была все же ограничена в размерах (по длине например) - но сохраняла пропорции.

[EducatedFool]

Посмотрите готовое решение
http://excelvba.ru/programmes/PastePictures
там уже всё реализовано

А если сами хотите писать макрос, - надо вставлять на лист картинку без изменения размеров (или получать размеры картинки непосредственно из файла, без вставки),
потом вычислять ширину (основываясь на исходных размерах и нужной длине),
и масштабировать картинку после вставки

Либо второй вариант, - после вставки включаем у картинки сохранение пропорций (свойство LockAspectRation = true), и меняем длину (ширина сама изменится),
а потом подгоняем картинку по координатам под центр ячейки

[odeon16]

Ясно.
Спасибо за ответ