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