| Name | Type | Description |
|---|---|---|
| FileName |
String
|
|
| Filter | ||
| Compression | Specifies the compression to apply. |
Sub Test()
Dim s As Shape
Dim ex As ExportFilter
For Each s In ActivePage.Shapes
If s.Type = cdrBitmapShape Then
Set ex = s.Bitmap.SaveAs("c:\" & s.StaticID & ".bmp", cdrBMP, _
cdrCompressionRLE_LW)
ex.Finish
End If
Next s
End Sub