|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
03.11.2008, 18:11 | #1 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
Excel to jpg
1. Делаю скрин диапазона
2. Вставляю картинку в лист 3. Через контекстное меню сохраняю как *.jpg Код:
Последний раз редактировалось Acro; 03.11.2008 в 18:13. |
03.11.2008, 18:17 | #2 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
03.11.2008, 18:56 | #3 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
Как то не выходит. Разницы не вижу
|
03.11.2008, 20:40 | #4 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Наверное я тебя не понял, я подумал, что на форум прикрепить не можешь
Последний раз редактировалось valerij; 03.11.2008 в 20:48. |
03.11.2008, 21:08 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Используйте для копирования диапазона такой код:
Range("B18:C39").CopyPicture Appearance:=xlScreen, Format:=xlPicture Вместо B18:C39 укажите нужный диапазон ячеек Этот код помещает "скрин" диапазона ячеек в буфер обмена. Потом вставляйте рисунок в любой графический редактор (тот же Paint) Качество вроде приличное. Здесь есть информация по теме.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 03.11.2008 в 21:28. |
04.11.2008, 12:40 | #6 | |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
Цитата:
Код:
За ссылку спасибо, по задачам схожее, но принципиально отличное решение. |
|
04.11.2008, 13:01 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуйте в строке
Worksheets("1").Range("A1:AK39").Co pyPicture xlScreen, xlBitmap заменить xlBitmap на xlPicture В таком случае картинка копируется в буфер обмена в векторном формате |
06.11.2008, 01:29 | #8 | |
Почти "Чайник"
Форумчанин
Регистрация: 09.06.2008
Сообщений: 134
|
Цитата:
(Изображение в Ирфан выгружал - совпадает до пикселя) |
|
06.11.2008, 17:23 | #9 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
Соверешенно верно разницы нет. На форумах msdn нашел код экспорта идельного качества jpeg. 1.9 Mb на выходе 1:1 через ОЛЕ. Как, уже, уменьшить программно получаемое качество не разобрался. Остановился на модификации вышеуказанного варианта.
Но там есть баг, повторяемость не отловил - иногда размер xls начинает расти после экспорта, хотя внешне в файле ничего не появилось нового. Остатки буфера что ли... |
06.11.2008, 22:11 | #10 | |
Почти "Чайник"
Форумчанин
Регистрация: 09.06.2008
Сообщений: 134
|
А у экселя я тоже заметил такой глюк.
Цитата:
Если файл открыть отключив макросы и закрыть, то он спрашивает "сохранять ли изменения?" даже если изменений не делать. После такого "сохранения" файл "худеет" с 1,3 Мб до 1 Мб Иногда больше иногда меньше но процентов на двадцать. если открыть с макросами и снова закрыть с сохранением то опять толстеет. Причём иногда бывает что "Толстый файл" при запуске "Глючит" "Худой" не глючит никогда. Ps Офис 2003 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Jpg по HTTP | mikkis | Работа с сетью в Delphi | 15 | 17.06.2009 03:27 |
Технология JPG | NoName_emaNoN | Мультимедиа в Delphi | 36 | 12.01.2009 20:09 |
Сводка jpg-файла | eks-s | Мультимедиа в Delphi | 3 | 30.08.2008 17:33 |
JPG to AVI | Pedro | Мультимедиа в Delphi | 2 | 08.05.2008 16:58 |
Jpg To Avi | prizrak1390 | Мультимедиа в Delphi | 4 | 23.01.2008 21:16 |