Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.08.2012, 16:11   #11
kulmamirov
 
Регистрация: 05.08.2012
Сообщений: 8
Сообщение

Цитата:
Сообщение от Казанский Посмотреть сообщение
Можно и без Корела, с бесплатным IrfanView.
Макрос для получения изображения ячейки А1:
Код:
Sub bb()
[A1].Copy
Shell """C:\Program Files\IrfanView\i_view32.exe"" /clippaste /dpi=(300,300) /convert=d:\A1.jpg"
End Sub
Приделайте цикл, паузу - и готово!
Спс Вам.
Получилось и работает через IrfanView.
jpg файл создается из ячейки.
почему качество не четкое? и обрамление ячейки появились
Изображения
Тип файла: jpg A1.jpg (2.2 Кб, 65 просмотров)

Последний раз редактировалось kulmamirov; 06.08.2012 в 17:04.
kulmamirov вне форума Ответить с цитированием
Старый 06.08.2012, 18:19   #12
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Попробуйте разные способы копирования диапазона как картинки:
Код:
[A1].CopyPicture Appearance:=xlScreen, Format:=xlPicture
[A1].CopyPicture Appearance:=xlScreen, Format:=xlBitmap
[A1].CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Обрамление в конце концов можно убрать с помощью /crop=(x,y,w,h)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 07.08.2012, 09:32   #13
kulmamirov
 
Регистрация: 05.08.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
Попробуйте разные способы копирования диапазона как картинки:
Код:
[A1].CopyPicture Appearance:=xlScreen, Format:=xlPicture
[A1].CopyPicture Appearance:=xlScreen, Format:=xlBitmap
[A1].CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Обрамление в конце концов можно убрать с помощью /crop=(x,y,w,h)
Ваши подсказки перепробовал, не мог избавиться от обрамлений.
Посоветуйте пожалуйста как в VBA открыть экзеловский файл и считывать в массив данные с ячеек?
Может быть я таким способом с массива буду вставлять фамилии в объект Корела?
С уважением Серик
kulmamirov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставить верхний апостроф в начале каждой ячейки Ogeris Microsoft Office Excel 10 08.08.2013 09:15
Программа для преобразования текста в jpg alexp21 Фриланс 10 28.11.2011 18:43
Поиск ячейки и вывод в ТМемо из xls файла BBOBAHH Общие вопросы Delphi 4 07.12.2010 19:25
Помогите создать макрос, который бы удалил все ячейки, кроме каждой 8-ой Рамирас Microsoft Office Excel 7 24.07.2010 19:37
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? diabloskrk Microsoft Office Excel 3 08.10.2007 12:27