Имя: Пароль:
1C
1С v8
Добавление картинки в ячейку Excel из 1с
0 mariakw
 
10.10.17
21:50
Добрый день форумчане. Подскажите пожалуйста кто знает как решить следующую проблему. Выгружаю картинки из 1с в Excel, всё выгружается, но картинки по мере возрастания числа строк начинают сползать. Не могу понять с чем этот прикол связан при том, что  координаты верхней границы ячейки и координаты верхней границы картинки совпадают.
1 Волшебник
 
модератор
10.10.17
21:52
Скриншот и программный код будет? Все телепаты в отпуске.
2 mariakw
 
10.10.17
21:59
Вот скрин: https://yadi.sk/i/aVCGGkMY3Ne9tp

Если ЗначениеЗаполнено(Строка.Картинка) Тогда
        Изобр = Новый Картинка ();
    Изобр = Строка.Картинка.Хранилище.Получить();
        ВременныйФайл = ПолучитьИмяВременногоФайла("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
все может зависеть, как ни странно, от установленного принтера

если на печати выводит все нормально, то для чисто визуального просмотра и отсылки во внешний мир - можно применить макрос экселя, уменьшающий координату "игрек" у каждой картинки, пропорционально некоему коэфф., подбираемого эмпирическим путем

сам так делал
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.