0
mariakw
10.10.17
✎
21:50
|
Добрый день форумчане. Подскажите пожалуйста кто знает как решить следующую проблему. Выгружаю картинки из 1с в Excel, всё выгружается, но картинки по мере возрастания числа строк начинают сползать. Не могу понять с чем этот прикол связан при том, что координаты верхней границы ячейки и координаты верхней границы картинки совпадают.
|
|
2
mariakw
10.10.17
✎
21:59
|
Вот скрин:
Если ЗначениеЗаполнено(Строка.Картинка) Тогда
Изобр = Новый Картинка ();
Изобр = Строка.Картинка.Хранилище.Получить();
ВременныйФайл = ПолучитьИмяВременногоФайла("jpg");
Изобр.Записать(ВременныйФайл);
Верх = Лист.Cells(i, 3).Top;
Лево = Лист.Cells(i, 3).Left;
Высота = Лист.Cells(i, 3).Height;
Ширина = Лист.Cells(i, 3).Width;
Лист.Shapes.AddPicture(ВременныйФайл, Ложь, Истина, Лево, Верх, Ширина, Высота);
Лист.Shapes(НомерКартинки).Name = XMLСтрока("Picture "+НомерКартинки);
Лист.Shapes(НомерКартинки).Top = Лист.Cells(i, 3).Top;
Лист.Shapes(НомерКартинки).Placement = 2;
НомерКартинки = НомерКартинки + 1;
УдалитьФайлы(ВременныйФайл);
КонецЕсли;
|
|
3
kittystark
11.10.17
✎
00:27
|
все может зависеть, как ни странно, от установленного принтера
если на печати выводит все нормально, то для чисто визуального просмотра и отсылки во внешний мир - можно применить макрос экселя, уменьшающий координату "игрек" у каждой картинки, пропорционально некоему коэфф., подбираемого эмпирическим путем
сам так делал
|
|