Сохранение картинок из 1с в Excel

1С v8

27.03.15

✎

12:48

Доброго времени суток. Всем доброй пятницы;)

ут 10.3.25

Делаю собственно следующее, что-то на подобии прайс листа с картинками.
Картинка отображается все как надо в табличном документе все устраивает, вывожу ее так:
Картинка = ЗначениеГруппировки.ОсновноеИзображение.Хранилище.Получить();
Если Картинка <> Неопределено Тогда
    СекцияКартинка.Рисунки["фото"].Картинка = Картинка;
Иначе
    Карт = новый Картинка ;
    СекцияКартинка.Рисунки["фото"].Картинка = Карт;
КонецЕсли;
мТабДок.Присоединить(СекцияКартинка);

где ЗначениеГруппировки - Это ссылка на номенклатуру.

Столкнулся с такой проблемой:
при выгрузке в Excel картинки не сжимаются, и сформированный список из 100 позиций весит при сохранении почти 400-600мб. и формируется минут 10.

код которым записываю и открываю в Excel ниже:

ЭлементыФормы.ДокументРезультат.Записать(КаталогВременныхФайлов()+"ПрайсСФото.xls", ТипФайлаТабличногоДокумента.XLS);
ЗапуститьПриложение(КаталогВременныхФайлов()+"ПрайсСФото.xls");

в св-х самого эксель захожу, делаю сжать все картинки и тогда файлик становиться мегабайта 2-5 максимум что очень радует(но согласитель всетаки както надо это оперативнее и чтобы юзеры лишний раз не тыкались в настройках экселя).

пробовал сохранять типовыми средствами "Файл - сохранить как". та же фигня.

Кто сталкивался с такой проблемой подскажи как можно решить? примеры приветствуются)))

1 Tatitutu

27.03.15

✎

12:53

http://magazkat.ru/proekt-magazka/samouchitel-instruktsiya-polzovatelya/40-samouchitel/v-kopilku-znanij/szhat-fajl-excel-v-60-raz

2 pin4er

27.03.15

✎

13:00

(1) собственно спасибо, это и так известно. Тут даже и юзерам можно инструкцию составить чтобы потом мозг не насиловали.

но это я писал в 3ей с низу строке поста.

он не решает проблемы с 10 минутным сохранение файла в эксель.
требуется какое то другое решение.

3 Tatitutu

27.03.15

✎

13:17

В "старом" Excel мог через макрос пробиться. В 2003 и выше не получилось.

Как вариант в (2) есть вторая статья.
Подсказка
Программно делаешь
1.сохраняешь в Excel ( поиграй с форматами много интересного узнаешь)
2. Открываешь и сохраняешь как веб.Страница
(Получишь файл и папку с картинками)
- удаляешь лишнее (превью оставь остальное лесом)
- снова сохраняешь как Excel
Удивляешься во сколько раз )))
Быстро качественно надежно

4 dk

27.03.15

✎

13:20

Word.Application - сжатие рисунков

5 pin4er

30.03.15

✎

15:37

Ни хренаски так и не понял как с помощью макросов реализовывать.

в итоге: пока все на прежнем месте топчусь.

6 pin4er

01.04.15

✎

16:25

ап

7 Ненавижу 1С

гуру

01.04.15

✎

16:37

(6) что именно с макросом не вышло?

8 pin4er

05.04.15

✎

09:39

(7) вообще ни чего в принципе, ни разу с ним не работал..

9 Tatitutu

05.04.15

✎

12:13

Завтра выложу готовую универсальную обработку

10 Jackman

05.04.15

✎

14:22

(0) Размер файла - это полбеды, некоторые версии Excel, при открытии сохраненного файла с картинками, не отображают их.

11 pin4er

06.04.15

✎

09:56

(9) было бы не плохо посмотреть как это реализуется.

(10) тьфу тьфу тьфу но на 2007, 2010, опенОфис в данном случае полет нормальный, отображается без проблем

12 dk

07.04.15

✎

07:23

ждемс

13 Провинциальный 1сник

07.04.15

✎

07:34

Может лучше сжимать картинки перед вставкой? Кстати, сколько они все весят, если их тупо сохранить в один каталог?

14 Tatitutu

12.04.15