На нашем сайте мы используем cookie для сбора информации технического характера и обрабатываем IP-адрес вашего местоположения. Продолжая использовать этот сайт, вы даете согласие на использование файлов cookies. Здесь вы можете узнать, как мы пользуемся файлами cookies.
Я согласен
логотип upread.ru

Экспорт в файл макросом CorelDraw



Макросы в CorelDraw – это не только операции с фигурами, слоями, шейпами и прочими элементами файла, но и работа непосредственно самими файлами; файловой системой компьютера. Я уже писал о том, как можно прочитать из файла, а в этой небольшой заметке покажу, как создавать папки, экспортировать в разные форматы файлов и получать имя открытого документа с помощью макроса для CorelDraw на языке VBA.

Итак, для начала функция, которая создает папку

Sub CreateFolderUp(folderUp As String)
    If Len(Dir(folderUp, vbDirectory)) = 0 Then
        MkDir folderUp
    End If
End Sub
На вход функция принимает строку (адрес) будущего каталога, проверяет, существует ли уже такая, и если существует, то создает директорию с указанным адресом.

Экспорт в формат JPEG

Dim expflt As ExportFilter, doc1 As Document, wid As Long, hey As Long, adr As String
Set doc1 = ActiveDocument
Set expflt = doc1.ExportBitmap(adr, cdrJPEG, cdrAllPages, cdrRGBColorImage, wid, hey, 150, 150, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
    With expflt
        .Progressive = False
        .Optimized = True
        .SubFormat = 0
        .Compression = 50
        .Smoothing = 10
        .Finish
    End With
Размеры и настройки понятны должны быть из названий. А вот код для сохранения файла в формате CorelDraw (cdr):

  Dim opt As New StructSaveAsOptions, upFile As String
  If ActiveDocument.Dirty Then ActiveDocument.Save
    opt.EmbedICCProfile = False
    opt.EmbedVBAProject = True
    opt.Filter = cdrCDR
    opt.IncludeCMXData = False
    opt.Overwrite = True
    opt.Range = cdrAllPages
    opt.ThumbnailSize = cdr10KColorThumbnail
    opt.Version = cdrFileVersion.cdrVersion13
    ActiveDocument.SaveAs upFile, opt
Часто для экспорта требуется знать адрес открытого документа, чтобы сохранить новый файл рядом. Текущая папка документа

ActiveDocument.FilePath
Имя открытого документа:

ActiveDocument.FileName
Обратите внимание, что две команды выше вызовут ошибку, если вызывать их для еще ни разу не сохранённого документа.





Автор этого материала - я - Пахолков Юрий. Я оказываю услуги по написанию программ на языках Java, C++, C# (а также консультирую по ним) и созданию сайтов. Работаю с сайтами на CMS OpenCart, WordPress, ModX и самописными. Кроме этого, работаю напрямую с JavaScript, PHP, CSS, HTML - то есть могу доработать ваш сайт или помочь с веб-программированием. Пишите сюда.

тегизаметки, макросы, CorelDraw, VBA

Читайте также:



Ход решения задачи по удалению дублей Java
Java: найти последнее число больше нуля


© upread.ru 2013-2023
При перепечатке активная ссылка на сайт обязательна.
Задать вопрос
письмо
Здравствуйте! Вы можете задать мне любой вопрос. Если не получается отправить сообщение через эту форму, то пишите на почу up777up@yandex.ru
Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.