Temat: Export zdjęć Corel

Posiadam w Corelu katalog - kilkadziesiąt stron gdzie są zamieszczone miniatury zdjęć a raczej są to po prostu dosyć spore TIFy i cały dokument ma ok. 700MB.

Sęk w tym, że chcę to wrzucić do InDesigna z przyczyn oczywistych. Linkowanie przez co dokument sam w sobie jest lekki.

Powiedzcie mi proszę.. jak mogę ew. eksportować same zdjęcia z dokumentu CDR? Jest jakiś ciekawy patent?
Marek Ś.

Marek Ś. Medical
Representative/KAM

Temat: Export zdjęć Corel

Publikuj jako pdf ?

Temat: Export zdjęć Corel

Marek Śnieżek:
Publikuj jako pdf ?

I co dalej? szukam tam po prostu możliwości ODHACZENIA np. tylko zdjęcia.

konto usunięte

Temat: Export zdjęć Corel

w cdr: zaznaczasz obiekt > export > tylko zaznaczone > tiff > nazwa... i tak zdjęcie po zdjęciu...
Zenon Cichecki

Zenon Cichecki Grafik, Soraya S.A.

Temat: Export zdjęć Corel

Można to też zrobić.
Zaznaczyć fotkę > edytuj obiekt > otworzy się w CPT i wtedy zapisz jako.

konto usunięte

Temat: Export zdjęć Corel

Daniel Grzeszczak:
Marek Śnieżek:
Publikuj jako pdf ?

I co dalej? szukam tam po prostu możliwości ODHACZENIA np. tylko zdjęcia.
Patent - sprawdza się przy niewielkiej ilości, przy większej - może skutecznie zmulić kompa.
Publikuj jako pdf (dla edycji - preset w Corelu 9 na ten przykład, by nie spłaszczył fotek z tłem)
W Photoshopie robisz "otwórz pdf", zaznaczasz opcje "zdjęcia", zaznaczasz wszystkie i klikasz ok.
Tylko tyle fotek zmuli ci kompa na 100%.
Dominik Mikiewicz

Dominik Mikiewicz maps made easy,
www.cartomatic.pl ||
cartoninjas.net

Temat: Export zdjęć Corel

Masz różne warstwy, na których są tiffy, czy może są na jednej? Jeżeli są na jednej, odpowiada ci ich numeracja w klimacie 1,2,3, etc oraz nie mają przezroczystości, to poniższe makro powinno pomóc nieco.
Po prostu zaznacz warstwę, na której masz tiffy i odpal makro. Skrypt sprawdza wszystkie elementy na warstwie, sprawdza, czy są to bitmapy i jeżeli tak, to exportuje je do tiffa. Wywali się, jeżeli w rastrze jest przezroczystość (niestety draw nie lubi exportować z poziomu skryptów przezroczystych tiffów; pewnie się można pogimanstykować i to zrobić, ale nie mam w tej chwili do tego głowy)

Sub ExportMultipleTiffs()

Dim path As String
path = "c:\test\"

Dim counter As Integer
counter = 1

Dim s As Shape

For Each s In ActiveLayer.Shapes

If s.Type = cdrBitmapShape Then

Dim expflt As ExportFilter
Set expflt = s.Bitmap.SaveAs(path & counter & ".tif", cdrTIFF, cdrCompressionNone)
expflt.Finish

counter = counter + 1

End If

Next s

End Sub



Wyślij zaproszenie do