вывод картинки в прайс лист ут 10.3

подскажите как ускорить. сейчас выводит так. но очень долго.
как можно оптимизировать вывод ?

Если НЕ Выборка.Номенклатура.ЭтоГруппа Тогда

                Если Выборка.ОсновноеИзображение <> Null Тогда
                    Картинка = Выборка.ОсновноеИзображение.Получить();
                    РисунокАвто = СекцияФото.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
                    Индекс=мТабДок.Рисунки.Индекс(РисунокАвто);
                    РисунокАвто.Картинка = Картинка;
                    РисунокАвто.Верх = 0;
                    РисунокАвто.Высота = 10;
                    РисунокАвто.Ширина = 20;
                    РисунокАвто.ГраницаСлева = Ложь;
                    РисунокАвто.ГраницаСправа = Ложь;
                    РисунокАвто.ГраницаСверху = Ложь;
                    РисунокАвто.ГраницаСнизу = Ложь;
                    РисунокАвто.Защита = Истина;
                    РисунокАвто.РазмерКартинки = РазмерКартинки.АвтоРазмер;
                Иначе
                    РисунокАвто = СекцияФото.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
                    Индекс=мТабДок.Рисунки.Индекс(РисунокАвто);
                    РисунокАвто.Картинка = Новый Картинка;
                    РисунокАвто.Верх = 0;
                    РисунокАвто.Высота = 10;
                    РисунокАвто.Ширина = 20;
                    РисунокАвто.ГраницаСлева = Ложь;
                    РисунокАвто.ГраницаСправа = Ложь;
                    РисунокАвто.ГраницаСверху = Ложь;
                    РисунокАвто.ГраницаСнизу = Ложь;
                    РисунокАвто.Защита = Истина;
                    РисунокАвто.РазмерКартинки = РазмерКартинки.АвтоРазмер;
                КонецЕсли;
            КонецЕсли;

            мТабДок.Присоединить(СекцияФото);