saveAsJPG

Sub saveAsJPG()
    Dim path As String
    path = CorelScriptTools.GetFileBox("Bitmap files|*.jpg", "Save As", 1, "file.jpg", , "C:\")
    Dim s As Shape
    Set s = ActiveShape
    If s.SizeWidth = 0 Then
    MsgBox "Zaznacz obiekt w dokumencie..."
    Exit Sub
    End If
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportBitmap( _
                 path, cdrJPEG, cdrSelection, cdrRGBColorImage, _
                 , , 300, 300, cdrNormalAntiAliasing, _
                 False, False, True, False, cdrCompressionJPEG)
    With expflt
        .Progressive = False
        .Optimized = True
        .SubFormat = 0
        .Compression = 10
        .Smoothing = 10
        .Finish
    End With
End Sub