И снова "Как сжать картинки для экспорта в EXCEL?" или Умная картинка 8.2

17.06.15

Интеграция - Загрузка и выгрузка в Excel

–

Прошла уже эпоха , когда экономили на трафике интернета. Но все же...повторюсь. Я предлагаю совершенно новый способ сжатия картинки - эффект в 20 раз !!!

Скачать исходный код

	Наименование	Файл	Версия	Размер
	NOSIZE.zip .zip 854,56Kb 78	.zip	1.0.01	854,56Kb	78	Скачать

Даже не знаю, насколько это актуально и востребовано....

Но, на всякий случай, для потомков.

Итак, внешний вид обработки:

В каталоге с внешней обработкой лежит файл картинки 2.jpg размер 763 кб. (можете заменить на свой)

Нужно его, например, добавить в прайс-лист.

4 варианта - решения данного вопроса.

1 Вариант - штатное сохранение макета табличного документа в xls 192 кб.
2 Вариант - штатное сохранение макета табличного документа в xlsx 173 кб.
3 Вариант - штатный способ, но с хитрой подменой 27 кб.
(при проведении лабораторных испытаний выяснилось, что файл формата *jpg 1С при сохранении в формат EXCEL для чего-то переконвертирует в формат png - неплохо, при таком подходе страдает качество картинки).
И вот вчера вечером в голову пришел 4 вариант.... пока это тайна (для вас бесплатно).
Для работы 4 варианта на данном этапе необходим установленный Microsoft Office Excel.

Интересно было бы услышать ваши предложения и комментарии (как еще лучше получить более сжатый файл).

На картинке показан результат от 192 кб (штатный способ) до 23 кб (можно и меньше, но уже начинает страдать качество)

Можно сделать экспортной функцией и сжимать файлы перед печатью;

Можно сжимать файлы (внешние или из хранилища) и сохранять отдельно;

Готовить например картинки по одному формату (размер, разрешение, объем);

Указывать % сжатия;

и многое-многое другое.

Дополнительный материал:

В 60 !!! раз сжимаем файл MS EXCEL с картинками (созданный программно из 1С) (для 7.7)

Сжать файл EXCEL в 60 раз ! (альтернатива)

Как сохранить все картинки из файла EXCEL(Word)

Как сохранить картинки из КОЛОНТИТУЛА файла EXCEL(Word)

Будут вопросы, пишите - всегда Ваш Tatitutu (c)

В архиве NOSIZE.zip - папка ПРИМЕР, в ней УмнаяКартинка.epf (сама обработка) и файл картинки для примера.

Запустите обработку: по очереди 4 варианта - оцените полученный результат.

сжать картинка EXCEL фотография товара уменьшить объем файла

–

См. также

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

10560 руб.

29.10.2014 210926 630 526

445

Загрузка данных о продажах WildBerries из API Статистики и Отчетов в формате *.xlsx в документ "Отчет комиссионера"

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 Бухгалтерский учет Оперативный учет 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Платные (руб)

Обработки предназначены для следующих конфигураций: Бухгалтерия предприятия, редакция 3.0; Управление нашей фирмой, редакция 3.0; Управление торговлей, редакция 10.3; Управление торговлей, редакция 11

4800 руб.

11.12.2019 54415 961 3

221

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 09.04.2024, версия 9.9 - 9.10)

14400 руб.

20.11.2015 151278 366 376

502

Загрузка данных о продажах ОЗОН из API Ozon и Отчетов в формате *.xlsx в документ "Отчет комиссионера"

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

4800 руб.

26.11.2020 37567 679 4

178

Маркетплейсный загрузчик для 12-ти маркетплейсов в 1С:БП 3, УТ 11, КА 2, ERP, УНФ

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 Бухгалтерский учет 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Управленческий учет Платные (руб)

Реальный помощник, с помощью которого Вы сделаете необходимые документы для Wildberries, OZON, ЯндексМаркет, Мегамаркет, Aliexpress, "Детский мир", Казань-Экспресс, "Леруа Мерлен", ЭНФАНТА (Акушерство), ЛаМода, Летуаль, "Твой дом" в документы "Отчет комиссионера (агента) о продажах" и другие, может работать в "Бухгалтерия 3", "Бухгалтерия 3 КОРП", УТ 11, УНФ, КА 2, ERP. Возможность подключить любые маркетплейсы. Анализ продаж ОЗОН. 30 дней БЕСПЛАТНОГО пользования!

1800 руб.

12.08.2021 32223 240 63

122

SALE! 30%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

~~6000~~ 5520 руб.

04.06.2019 101760 298 173

314

Загрузка данных отчета о реализации товаров из Excel файла СберМегаМаркет

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Загрузка данных отчета о реализации товаров из сервиса СберМегаМаркет для конфигурации: Бухгалтерия предприятия, редакция 3.0; Управление торговлей, редакция 11 и Управление нашей фирмой, редакция 3.0 в документ "Отчет комиссионера (агента) о продажах".

4800 руб.

07.06.2022 15321 81 0

SALE! 20%

Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы

Загрузка и выгрузка в Excel Оптовая торговля Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

~~5000~~ 4000 руб.

09.11.2016 215628 928 886

942

Комментарии

Подписаться на ответы

Свернуть все

1. Tatitutu 3855 17.06.15 10:31 Сейчас в теме

Подсказка про Вариант3 (для тех кто не хочет лишний раз качать )

суть идеи (может баян или велосипед) можно меня ткнуть носом (правда это хлопотно)

При выводе на печать картинки есть строго заданный макет печатной форму и объекта картинка
пусть наша картинка будет размером 5 на 4 см.
Картинки могут храниться как на внешнем носители так и базе (хранилище) - но не всегда картинки "хорошего" размера
(был случай клиент купил новый фотоаппарат и добавлял в базу картинки весом около 20 мб - потом спрашивал что у меня за тормоза - смешной)
Платформа 1С 8 очень не плохо по сравнению с 7.7 версией научилась автоматически при сохранении сжимать картинки (зависит от формата EXCEL)
но все же иногда хочеться побольше да посильнее "сжать" выходной файл.
Для этого нам понадобиться дополнительный макет с объектом картинка - но меньшего размера например 2,5 на 2 см (-50%)
Далее
- создаем Табличную форму с одной маленькой картинкой
- сохраняем файл
- извлекаем нашу картинку
- подставляем ее вместо ПЕРВОЙ изначальной картинки в нужный например ПРАЙС- ЛИСТ (вместо файл 20 мб получить 2 мб - я думаю это очень не плохо)

Продолжение следуют.... (про Вариант4)

2. Tatitutu 3855 18.06.15 09:49 Сейчас в теме

Столько народу спрашивало, спрашивало - все времени не было выложить. Выложил и не кому не нужно )))
Ну ничего не меняется. Нужно было назвать "Неуловимая обработка" - Почему неуловимая ? - да никому потому что не нужна :)

3. fishca 1254 18.06.15 11:22 Сейчас в теме

Возьму на заметку, спасибо!

4. Tatitutu 3855 18.06.15 11:26 Сейчас в теме

(3) fishca, сначала предложи суть Варианта4

5. Serg O. 225 19.06.15 15:34 Сейчас в теме

я сам тоже "допёр" что xlsx лучше...
у нас прайс-лист с картинками есть... около 300 фото...
xls - делает около 100 Мб
xlsx - делает 17 Мб
так что 2-го варианта обычно достаточно....

3 вариант - очень сильно ухудшает фото (см. 111.jpg)

4 - вообще не работает, выдаёт ошибку

{ВнешняяОбработка.УмнаяКартинка.МодульОбъекта}: Ошибка при вызове конструктора (ЧтениеZipФайла)
по причине:
Некорректный формат файла: C:\Documents and Settings\ogorodnikov\Local Settings\Temp\v8_A676_54.xlsx

Прикрепленные файлы:

6. Tatitutu 3855 19.06.15 15:47 Сейчас в теме

(5) Serg O., Спасибо за отзыв.
3 Вариант - это как идея - там можно "играть" качеством уменьшать/увеличивать подменный макет
4 вариант - у вас выдал ошибку скорее всего файл был отличный от формата jpg
выложу в открытом виде (как наберу 27 звезд :-) там можно изменить на любой формат графического файла или сделать универсальный)
Прикрепи файл (C:\Documents and Settings\ogorodnikov\Local Settings\Temp\v8_A676_54.xlsx)

7. osvan 07.12.16 09:17 Сейчас в теме

Юрий, добрый день! Нужна обработка для сжатия прайса 1С с картинками в EXEL для 1С8. У тебя была подобная для 1С7. Можешь помочь?

8. Tatitutu 3855 07.12.16 10:53 Сейчас в теме

(7) Так это и есть эта обработка (она полностью рабочая)
а теория вот

9. Азверин 3 29.08.18 14:18 Сейчас в теме

Автор, код обработки открыт?

10. Tatitutu 3855 30.08.18 16:43 Сейчас в теме

(9) на 75% (первый три способа доступны всем)
4-й остался - загадкой (уже три года прошло)

11. user660208_nicolas.tim 19.12.21 11:47 Сейчас в теме

Вот решение загадки (4 варианта):

ТабличныйДокумент= Новый ТабличныйДокумент();
ТабличныйДокумент.Записать(ПутьСохраненияИИмя, ТипФайлаТабличногоДокумента.XLSX);
	
Excel = новый COMОбъект("Excel.Application");
Excel.Visible = Истина;
		Макрос = "Sub VBAcuts()
			|Dim wsh As Worksheet
			|Set wsh = Worksheets(1)
			|Application.WindowState = xlMaximized
			|wsh.Activate
			|wsh.Shapes(1).Select
			|SendKeys ""э""
			|SendKeys ""в""
			|SendKeys ""~""
			|Application.CommandBars.ExecuteMso ""PicturesCompress"" 	
			|End Sub";
		
Excel.Application.DisplayAlerts = False;
Книга = Excel.Workbooks.Open(ПутьСохраненияИИмя);

VBComponents = Книга.VBProject.VBComponents;
Кол = VBComponents.Count();
Модуль = VBComponents.Add(1);
Модуль.CodeModule.InsertLines(1,Макрос);
Excel.DisplayAlerts = 0;
Excel.Application.Run("VBAcuts");
		
Excel.Visible = Ложь;
	
Книга.SaveAs(ПутьСохраненияИИмя);
Книга.Close();	

Excel.Application.Quit();
Excel = Неопределено;

Показать

12. user660208_nicolas.tim 19.12.21 15:34 Сейчас в теме

(11) Главное, не забыть, в безопасности Excel включить использование макросов и доступ к объектной модели.

13. Tatitutu 3855 20.12.21 12:24 Сейчас в теме

(11) Спасибо ,аж до слез

дата публикации : 17.06.15 10:53

Интересно было бы услышать ваши предложения и комментарии

и меня услышали : 19.12.21 11:47

не прошло и 6 лет 6 месяцев 2 дня (подождал бы до 23 декабря ))))

в каждой книге макрос записывать - наверное не правильно
создать в личной книге - на процедуру при закрытии - если есть картинки вопрос -БУДЕМ СЖИМАТЬ или НЕТ

С Наступающим Новым Годом! И блеска в глазах и желания, что нибудь создать или улучшить !