Главная      Стихи      Издательство      Бона Сова      Иллюстрации      Художники     


Главная » 2011 » Июнь » 3 » Скрипт для экспортирования макета из CorelDraw.
11:41
Скрипт для экспортирования макета из CorelDraw.
Вы экспортируете множество рекламных макетов из разных файлов Корела в одну и ту же папку и с одними и теми же настройками.

1. Выделяете макет, заходите в редактор Visual Basic




2. Даете макросу имя и обязательно выбираете GlobalMacros, иначе скрипт будет записан только в тот  
    файл Корела, который у вас сейчас открыт.



3. Экспортируете макет в нужную папку с нужным разрешением файла. 



4. В этом окошке указываете все нужные на выходе параметры. У меня это CMYK на 300 точек с размером файла 62 на 37 мм.



5. Скинули. Остановили Basic.



6. Нажимаете play.



7. В появившемся окне выбираете свой макрос и жмете edit.



8. Вылезло окошко с вашим макросом. На рисунке он выделен.




9. Макрос выглядит так:

Sub Macro1()
    '
    ' Recorded 03.06.2011
    '
    ' Description:
    '
    '
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportBitmap("Z:\Reklama\Design\-e\Graphic1.tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 732, 437, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone)
    expflt.Finish
End Sub

10. Теперь правим. (Правка подчеркнута красным, это просто для сравнения):

Sub Macro1()
    '
    ' Recorded 03.06.2011
    '
    ' Description:
    '
    '
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim expflt As ExportFilter
    Dim myNameFile As String
    myNameFile = Mid(ActiveDocument.Name, 1, Len(ActiveDocument.Name) - 4)
    myName = "Z:\Reklama\Design\-e\" & myNameFile & ".tif"

    Set expflt = ActiveDocument.ExportBitmap(myName, cdrTIFF, cdrSelection, cdrCMYKColorImage, 732, 437, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone)
    expflt.Finish
End Sub

     Как видно, мы добавили три строчки. Вторая строчка убирает последние четыре символа в названии файла. Допустим, было Graphic1.cdr, а станет просто Graphic1. Третья строчка присваивает файлу то имя, с которым файл был создан. (Это чтобы разные файлы не скидывались с одним и тем же именем). И, соответственно, заменяем "Z:\Reklama\Design\-e\Graphic1.tif" на myName.
Просмотров: 896 | Добавил: Aschwabauer | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]