[CDR X4 и ранее] Экспорт файла с предустановкой параметров?

Darsh

Топикстартер
15 лет на форуме
Сообщения
374
Реакции
5
Подскажите. Если нужно вызвать диалоговое окно экспорта в формат AI, с установленным чекбоксом "Только выделенное". Как это можно сделать. Я давно не писал на VBA под Corel. Получился вот такой код, и уверен он неправильный (рабочий, но мне кажется все делается гораздо проще):

Код:
Sub ExportSel()

Dim ex As ExportFilter
Dim pth As String

pth = ActiveDocument.FullFileName
pth = Left(pth, Len(pth) - 3) & "ai"

Set ex = ActiveDocument.ExportEx(pth, cdrAI, cdrSelection)
With ex
If .HasDialog Then
.ShowDialog
End If
.Finish
End With

End Sub

Этот код минует диалоговое окно, сохраняет в ту же папку где лежит .CDR и только выделенное.
 
  • Спасибо
Реакции: tohaa

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
А что не так то? И куда проще?
 

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Можно не вызывать диалог и воткнуть всё в одну строку с двойным вызовом имени файла, вот только зачем?
Код:
Sub ExportSel()
  ActiveDocument.ExportEx(Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "ai", cdrAI, cdrSelection).Finish
End Sub
+ будет сбоить на несохранённом файле из-за отсутствия проверки
 
  • Спасибо
Реакции: izrukvruki и Darsh