[CDR X5-X8] Сохранение фото в исходном виде

  • Автор темы Автор темы NemoSUN
  • Дата начала Дата начала
Это оригинальные названия?
Код: 
100000000000015E000001D850F9A733.bmp
1000000000000171000001D8DFB98B22.bmp
10000000000001D00000023B750EB21C.bmp
10000000000001D80000027539406503.bmp
1000000000000248000001D86B4F86F3.bmp
10000000000002A3000002F4E0B4D799.bmp
10000000000005DC0000060BF0F52A83.bmp
 
Весьма.
 
  • Смешно
  • Спасибо
Реакции: AZ-597 и ~RA~
~RA~ сказал(а):
Это оригинальные названия?
Код: 
100000000000015E000001D850F9A733.bmp
1000000000000171000001D8DFB98B22.bmp
10000000000001D00000023B750EB21C.bmp
10000000000001D80000027539406503.bmp
1000000000000248000001D86B4F86F3.bmp
10000000000002A3000002F4E0B4D799.bmp
10000000000005DC0000060BF0F52A83.bmp
Нажмите, чтобы раскрыть...
Нет. К тому же все фотки либо jpg либо tif.
 
Тут про Корел тема.
 
~RA~ сказал(а):
в кореле это уже не так
Нажмите, чтобы раскрыть...
1738164136074.png
 
Когда-то давно вставала аналогичная задача. Помог кривой способ - сохранение файла в .ai и извлечение картинок в оригинальном виде бесплатной утилиткой (не имеющей никакого отношения к адобам) название которой я не помню. Имена файлов насколько я помню не сохранялись, но я был счастлив и такой возможности.
 
Последнее редактирование:
  • Спасибо
Реакции: NemoSUN
Последнее редактирование:
  • Спасибо
Реакции: mnemonix и MrDesigner
По сути решается почти одной строчкой
s.Bitmap.SaveAs остается пробежать по всем растрам

Код: 
Sub export_all_images()
    fpath = IIf(Len(ActiveDocument.FilePath) > 3, ActiveDocument.FilePath, "c:\Temp\")
    For Each s In ActivePage.SelectableShapes.FindShapes(, cdrBitmapShape).Shapes
        sName = IIf(Len(s.Name) > 1, s.Name, s.StaticID)
        s.Bitmap.SaveAs(fpath & sName & ".jpg", cdrJPEG).Finish
    Next s
End Sub
 
  • Спасибо
Реакции: mnemonix
Огромное ребят вам всем СПАСИБО, что откликнулись. Сижу, разбираюсь. Ваши ссылки, идеи - как желанные новогодние подарки для ребёнка )))
 
DukereD сказал(а):
По сути решается почти одной строчкой
s.Bitmap.SaveAs остается пробежать по всем растрам

Код: 
Sub export_all_images()
    fpath = IIf(Len(ActiveDocument.FilePath) > 3, ActiveDocument.FilePath, "c:\Temp\")
    For Each s In ActivePage.SelectableShapes.FindShapes(, cdrBitmapShape).Shapes
        sName = IIf(Len(s.Name) > 1, s.Name, s.StaticID)
        s.Bitmap.SaveAs(fpath & sName & ".jpg", cdrJPEG).Finish
    Next s
End Sub
Нажмите, чтобы раскрыть...
Что-то не работает. У меня Corel X6(x64) со всеми апдейтами.
 

Вложения

Для ответа нужно войти/зарегистрироваться
Верх Низ