Экспорт в JPG

[KingOF]

Кто подскажет, как заставить Корел экспортировать файл не с названием "modul.jpg" или тому подобное, а с названием документа из которого файл экспортируется.
Пример: 6x4col.cdr, джипег должен называться 6x4col.jpg

Sub email_buffer()
    '
    ' Recorded 23.10.2007
    '6x4col.jpg
    ' Description:
    '                email_buffer
    '
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.Copy
    Dim s1 As Shape
    Dim FileExportName
    FileExportName = ActiveDocument.Name
        
    Set s1 = OrigSelection.ConvertToBitmapEx(cdrRGBColorImage, False, False, 300, cdrNormalAntiAliasing, True, False, 95)
    ActiveDocument.ReferencePoint = cdrTopLeft
    s1.Stretch 1.003344, 1.003344
    Dim expflt As ExportFilter
    s1.CreateSelection
    Set expflt = ActiveDocument.ExportBitmap[COLOR=DarkRed]("D:\modul.jpg[/COLOR]", cdrJPEG, cdrSelection, cdrRGBColorImage, True, True, 150, 150, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
    With expflt
        .Progressive = False
        .Optimized = False
        .SubFormat = 0
        .Compression = 0
        .Smoothing = 0
        .Finish
    End With
    s1.Delete
    ActiveLayer.Paste
    Dim Paste1 As ShapeRange
    Set Paste1 = ActiveSelectionRange
End Sub

 

[Asmussen]

Ответ: Экспорт в JPG

К примеру, заместо "D:\modul.jpg" написать
Mid(ActiveDocument.FullFileName, 1, Len(ActiveDocument.FullFileName) - 3) & "jpg"

 

[KingOF]

Ответ: Экспорт в JPG

Спасибо, а то я уже бейскик пошел изучать

 

[KingOF]

Ответ: Экспорт в JPG

Только он выводит в каталог в котором исходник, а надо чтоб на D:

 

[Asmussen]

Ответ: Экспорт в JPG

Спасибо, а то я уже бейскик пошел изучать

А вот это дело полезное

Если на D тогда
"D:\" & Mid(ActiveDocument.Name, 1, Len(ActiveDocument.Name) - 3) & "jpg"

 

[KingOF]

Ответ: Экспорт в JPG

Супер! Спасибо. Дело полезное но долгое.
Может подскажешь какую-нибудь инфо по написанию скриптов для Корел?

 

[Asmussen]

Ответ: Экспорт в JPG

На мой взгляд, встроенный Хелп вполне не плох. Там конечно не по нашему все, но много примеров, на их основе вполне можно разобраться.
А также с самим Корелом устанавливается документация в PDF, в том числе и по программированию на VBA. Я русскую версию не видел, может быть там даже переведено что-нить. )

 

[KingOF]

Ответ: Экспорт в JPG

Ну я конечно тормоз
даже не догадался глянуть в документацию
спасиб

 

[lev]

Ответ: Экспорт в JPG

moderatorial
KingOF - перестаньте цитировать целиком предыдущие сообщения

 

[KingOF]

Ответ: Экспорт в JPG

Пардон, мы не местные!