Я скрывался некоторое время и нашел это очень полезным, так что спасибо за помощь уже!

Я пытаюсь написать макрос для встраивания изображений в лист из отдельных файлов и изменения их размера, сохраняя при этом полное разрешение изображения без изменений, если его необходимо будет снова увеличить. Прежде всего я попробовал:

ActiveSheet.Pictures.Insert(imageName).Select
With Selection.ShapeRange
    .Height = 100
    .Width = 100
End With

Это по существу вставило ссылку на изображение, и если файл изображения был удален или файл Excel был перенесен на другой компьютер, ссылка была бы повреждена. Далее я попробовал:

ActiveSheet.Shapes.AddPicture Filename:=imageName, _
    linktofile:=msoFalse, _
    savewithdocument:=msoCTrue, _
    Width:=100, _
    Height:=100

Этот код также работает, но перед вставкой размер изображения увеличивается до 100 * 100 пикселей, поэтому исходное разрешение файла теряется.

Есть ли способ вставить файлы изображений изатем уменьшить их размер, чтобы сохранить исходное разрешение?

Большое спасибо, Адам.