| Name | Type | Description |
|---|---|---|
| FileName |
String
|
|
| Filter | ||
| Range | Specifies the pages that are exported. You have the option of exporting all or several pages in a document, a single page in a document, or a selection of objects within a document. The Range parameter returns a value of cdrExportRange. |
|
| ImageType | Specifies the image type being exported This value returns cdrImageType. |
|
| Width |
Long
|
Specifies the height of the bitmap, measured in document units. |
| Height |
Long
|
Specifies the height of the bitmap, measured in document units. |
| ResolutionX |
Long
|
Specifies the numerical value that indicates the horizontal resolution level of an image that is exported. |
| ResolutionY |
Long
|
Specifies the numerical value that indicates the vertical resolution level of an image that is exported. |
| AntiAliasingType | Specifies the value that indicates the appearance of a bitmap's edges when it is exported, and returns cdrAntiAliasingType. |
|
| Dithered |
Boolean
|
Specifies whether the image is dithered when exported. |
| Transparent |
Boolean
|
Specifies the transparency of the image. |
| UseColorProfile |
Boolean
|
Specifies whether to use the color profile when exporting the image. |
| MaintainLayers |
Boolean
|
Specifies whether to maintain layers. |
| Compression | Specifies the type of compression to apply. |
|
| PaletteOptions | Specifies the set of options to apply when exporting to a paletted bitmap. |
|
| ExportArea | Specifies the export area. |
Sub Test()
Dim d As Document
Dim s As Shape
Dim Filter As ExportFilter
Set d = CreateDocument
Set s = d.ActiveLayer.CreateEllipse2(4, 5, 2)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 0)
Set Filter = d.ExportBitmap("C:\Temp\Doc.jpeg", cdrJPEG, cdrCurrentPage, _
cdrRGBColorImage, 0, 0, 72, 72)
With Filter
.Compression = 80
.Optimized = True
.Smoothing = 50
.SubFormat = 1
.Progressive = False
.Finish
End With
End Sub