Добрый день. На печатной форме есть компонент Изображение.
Вывод изображения:
Картинка=Новый Картинка(ПутьКФото);
                                СекцияКартинка.Рисунки["Изображение"].Картинка = Картинка;

Когда сохраняем в xls-получается большой прайс, т.к. используем "тяжелые фотографии". Как-то средствами 1с можно загрузить фото более легкое? Задать качество и т.д.

(0) 1С не редактор фото, предварительно обрабатывайте в нормальном редакторе

Это понятно. Используется проф. фото, и облегчить их-долго. Вот и возник вопрос.

Смотрите, база раздуется из-за больших файлов.

Можно найти написать скрипт, который ужимает фото на чем-нибудь стороннем и всю базу шринкнуть. И запустить можно в фоновом задании, что бы ужимал картинки.

Держи, в свое время сталкивался с задачей. WIA это стандартная библиотека в Windows начиная с висты для рабочих станций, с 2003 сервера для серверов. Для XP она как то отдельно ставится.

Функция ПолучитьУменьшенныйФайлКартинки(ИсходныйФайл)
    Если ТипЗнч(ИсходныйФайл) <> Тип("Файл") ИЛИ ИсходныйФайл.Существует() = Ложь Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    Попытка
        objImageFile = Новый COMОбъект("WIA.ImageFile");
        objImageProcess = Новый COMОбъект("WIA.ImageProcess");
        
        objImageFile.LoadFile(ИсходныйФайл.ПолноеИмя);
        objImageProcess.Filters.Add(objImageProcess.FilterInfos("Scale").FilterID);
        
        objImageProcess.Filters.Item(1).Properties.Item("MaximumWidth").Value = 650;
        objImageProcess.Filters.Item(1).Properties.Item("MaximumHeight").Value = 650;
        
        objImageFile = objImageProcess.Apply(objImageFile);
        ИмяУменьшенногоФайла = ПолучитьИмяВременногоФайла(ИсходныйФайл.Расширение);
        УменьшенныйФайл = Новый Файл(ИмяУменьшенногоФайла);
        Если УменьшенныйФайл.Существует() Тогда
            УдалитьФайлы(УменьшенныйФайл.ПолноеИмя);
        КонецЕсли;
        
        objImageFile.SaveFile(УменьшенныйФайл.ПолноеИмя);
        Возврат УменьшенныйФайл;
    Исключение
        ОбщегоНазначения.ВывестиСообщение("Ошибка при обрезании файла "+ИсходныйФайл.ПолноеИмя+": "+ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
КонецФункции