Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Публикация копии книги в формате JPEG
 
#1
26.02.2010 12:11:55
Всем доброго дня!  
Как вы считаете это возможно?  
Публикация копии книги в формате JPEG
____________________________________________________________­____________      
 
 
 
#2
26.02.2010 12:14:59
С какой целью?
 
 
 
#3
26.02.2010 12:16:28
{quote}{login=Rihter}{date=26.02.2010 12:11}{thema=Публикация копии книги в формате JPEG}{post}Всем доброго дня! Как вы считаете это возможно? Публикация копии книги в формате JPEG{/post}{/quote}  
Никто не запрещает. Кое-кто предпочитает *.xps...  
Z.
 
 
 
#4
26.02.2010 12:25:55
Можно и в пдф распечатать - с возможностью копировать значения...
 
 
 
#5
26.02.2010 12:28:57
У меня есть макрос, который сохраняет выбранный диапазон ячеек в файл формата JPG, и отсылает картинку на сайт.  
 
А Вам куда надо потом "публиковать" сформированный рисунок?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
26.02.2010 13:02:16
{quote}{login=EducatedFool}{date=26.02.2010 12:28}{thema=}{post}У меня есть макрос, который сохраняет выбранный диапазон ячеек в файл формата JPG, и отсылает картинку на сайт.  
 
А Вам куда надо потом "публиковать" сформированный рисунок?{/post}{/quote}  
 
Rihter  
Мне необходимо сохранить его в папку на рабочем столе...
 
 
 
#7
26.02.2010 13:07:10
{quote}{login=The_Prist}{date=26.02.2010 12:12}{thema=}{post}Вы к кому обращаетесь? Куда публиковать? В Excel? Считаю бредом.{/post}{/quote}  
 
Rihter  
Возможно не совсем правильно выразил мысль...  
Необходимо перенести область печати в файл формата JPEG и сохранить конечный файл на рабочем столе в одну из папок.
 
 
 
#8
26.02.2010 13:12:02
Можно эксель сохранить как pdf, а потом pdf сохранить как JPEG. Только что попробовал - прокатило, только в JPEG сохраняется не одним рисунком, а несколькими (в зависимости от кол-ва страниц).
 
 
 
#9
26.02.2010 13:28:49
Необходимо сохранить в формате JPEG область печати Excel одним нажатием кнопки.
 
 
 
#10
26.02.2010 13:37:17
Rihter, Вы ответы читаете?  
{quote}{login=EducatedFool}{date=26.02.2010 12:28}{thema=}{post}У меня есть макрос, который сохраняет выбранный диапазон ячеек в файл формата JPG, и отсылает картинку на сайт.{/post}{/quote}
 
 
 
#11
26.02.2010 13:40:16

Пример кода есть в этой теме: http://www.programmersforum.ru/showthread.php?t=54492 Правда, с момента создания той темы прошло много времени, и сохранение в формате JPG я реализовал позже - в ту надстройку оно не попало. Но, если надо сохранять именно в формат JPG - могу подготовить новую надстройку, но это займёт время.

Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#12
26.02.2010 14:00:55
Вот, сделал для Вас пример: http://excelvba.ru/XL_Files/Sample__26-02-2010__15-58-27.zip  
 
В этом файле много лишнего кода - лень было вычищать ненужное.  
 
Сейчас код создаёт JPG в специально создаваемой временной папке.  
При желании папку можно изменить - будет сохранять на рабочий стол.  
 
Макрос по умолчанию сохраняет в JPG ВЫДЕЛЕННЫЙ ДИАПАЗОН ячеек, поэтому для запуска макроса (чтобы его не переделывать) пришлось немного извратиться с выделением:  
 
Sub test()  
   Dim s As Range: Set s = Selection  
   Dim sh As Worksheet: Set sh = ActiveSheet  
   addr = sh.PageSetup.PrintArea  
   If addr = "" Then addr = sh.UsedRange.Address  
   Range(addr).Select  
   SaveRangeToJPG  
   s.Select  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#13
26.02.2010 14:11:15

Вот ссылка на файл с примером: http://excelvba.ru/XL_Files/Sample__26-02-2010__16-11-02.zip <BR>(в предыдущий файл попало кое-что лишнее - вынужден был его удалить)

Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#14
26.02.2010 14:26:24
Спасибо большое!  
Сейчас посмотрю...
 
 
 
#15
29.03.2010 08:17:41
Мда, и я еще считал, что что-то умею (благодаря этому форуму собственно :))...  
 
2EducatedFool: Честно говоря, практически ничего не понял (пока, буду разбираться, но сложно). Что можно безболезненно удалить из макросов, чтобы оставить только сохранение файла в нужном формате (jpg) и сохранение его во временную папку? И какие процедуры/функции можно объявить приватными, чтобы пользователя не смущали?  
 
Спасибо... :)
 
 
 
#16
29.03.2010 08:21:06
Кажется понял... :)
 
 
 
#17
29.03.2010 09:45:37
Эх, все-таки получается очень топорно :(  
 
Разобрался до момента подготовки копии книги с форматированным вариантом.  
Большая просьба к EducatedFool, можете ли адаптировать макрос для создания и сохранения изображения в папку, где находится основной файл?
 
 
 
#18
29.03.2010 11:27:34
> можете ли адаптировать макрос для создания и сохранения изображения в папку, где находится основной файл?  
 
Конечно. Надо-то изменить одну строку кода...  
Проверяйте: http://excelvba.ru/XL_Files/Sample__29-03-2010__13-26-11.zip  
 
PS: Попутно убрал из кода много лишнего (но не всё)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#19
29.03.2010 12:05:59
Спасибо!
 
 
 
#20
30.03.2010 11:50:31
EducatedFool, спасибо огромное! :)  
 
Немного обработал (сделал функции/процедуры приватными, убил лишний код в Main Module, сделал сохранение файла в формате "Имя исходного файла_дата сохранения.jpg", превратил в надстройку) Ваш файл, выкладываю, вдруг кому-то пригодится...  
 
Вызов сохранения выделенных ячеек по Ctrl+Shift+R, файл сохраняется в той же папке, где находится исходная книга.
 
 
 
#21
30.03.2010 11:51:25
Не прицепился...
 
 
 
#22
30.03.2010 13:01:31
А как в pdf сохранить ?
 
 
 
#23
30.03.2010 13:09:50

{quote}{login=1_}{date=30.03.2010 01:01}{thema=}{post}А как в pdf сохранить ?{/post}{/quote}<BR>Напечатать. http://www.planetaexcel.ru/forum.php?thread_id=5221

Bite my shiny metal ass!      
 
 
 
#24
30.03.2010 14:05:34
Лузер™  
СПАСИБО !!!
 
 
 
#25
30.03.2010 15:51:39
EducatedFool, подскажите еще, а как Вы сделали описание, я такого способа не нашел, это сделано штатными средствами?
 
 
 
#26
30.03.2010 17:48:49
А кнопка Print Screen не работает?
 
 
 
#27
30.03.2010 21:19:19
> EducatedFool, подскажите еще, а как Вы сделали описание, я такого способа не нашел, это сделано штатными средствами?  
 
Это делается очень просто.  
Правой кнопкой на файле - пункт СВОЙСТВА - вкладка СВОДКА  
Там есть поле КОММЕНТАРИЙ - вот в него и пишем описание надстройки.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх