Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

Добавление картинки в ячейку Excel из 1с

Добавление картинки в ячейку Excel из 1с
Я
   mariakw
 
10.10.17 - 21:50
Добрый день форумчане. Подскажите пожалуйста кто знает как решить следующую проблему. Выгружаю картинки из 1с в Excel, всё выгружается, но картинки по мере возрастания числа строк начинают сползать. Не могу понять с чем этот прикол связан при том, что  координаты верхней границы ячейки и координаты верхней границы картинки совпадают.
 
 
   Волшебник
 
Модератор
1 - 10.10.17 - 21:52
Скриншот и программный код будет? Все телепаты в отпуске.
   mariakw
 
2 - 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;
     УдалитьФайлы(ВременныйФайл);
КонецЕсли;
   kittystark
 
3 - 11.10.17 - 00:27
все может зависеть, как ни странно, от установленного принтера

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

сам так делал

Список тем форума
Рекламное место пустует  Рекламное место пустует
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки - вот настоящая работа.
Фредерик Брукс-младший
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует