Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открыть image и сохранить его через Paint в формате *.bmp с помощью макроса, Нужно открыть image и сохранить его через Paint в формате *.bmp с помощью макроса
 
#1
24.12.2015 09:34:31
Добрый день!

Есть некий рисунок, который с сайта сохраняется в формате *.jpg. Этот файл не подходит для дальнейшей работы в таком формате. Таких рисунков порядка 10000, поэтому конвертировать в ручную весьма трудозатратно. Нужно с помощью макроса:
1) Открыть paint
2) "Открыть" требуемый image из требуемой папки
3)  "Сохранить как" *.bmp в требуемую папку
4) Закрыть paint

Всё.
Прилагаю условную картинку из интернета.

Заранее спасибо!
 
 
 
#2
24.12.2015 09:51:48
1 пункт решил.

Теперь нужно:
2) "Открыть" требуемый image из требуемой папки
3) "Сохранить как" *.bmp в требуемую папку
4) Закрыть paint

Код программного открытия paint:
Код
ActivatePaint = Shell("c:\WINDOWS\system32\mspaint.exe", 1)
 
 
 
#3
24.12.2015 10:03:56
Доброе время суток
А зачем вообще мучать Paint?
Код
Public Sub testConvert()
    Dim img As IPictureDisp
    Set img = LoadPicture("c:\temp\name.jpg")
    SavePicture img, "c:\temp\name.bmp"
End Sub

Успехов.
 
 
 
#4
24.12.2015 10:12:43
Цитата
Андрей VG написал:
А зачем вообще мучать Paint?
Спасибо за ответ!

Поясню, это случай "когда от дурной головы рукам места мало!".

Просто вручную получалось корректно конвертировать только через Paint.

Вам очень благодарен!

С наступающим Новым Годом!
 
 
 
#5
24.12.2015 11:53:12
yegorovaleks, а с какой целью пишете через строку?
 
 
 
#6
24.12.2015 11:55:12
Цитата
Юрий М написал:
yegorovaleks, а с какой целью пишете через строку?
Прошу прощения! Исправлюсь!
 
 
 
#7
24.12.2015 12:11:40
Когда?
 
 
 
#8
24.12.2015 12:27:09
Цитата
Юрий М написал:
Когда?
Прямо
сейчас!
 
 
 
#9
24.12.2015 12:33:27
Понятно: исправить своё сообщение времени нет, а поиздеваться есть. Бан на сутки.
 
 
 
Страницы: 1
Читают тему
Наверх