Re: Свойство ExportArea в ExportFilter

Написал mendow в 14/01/2011 17:47:57

'----- code --------
Dim r As Rect
Dim x As Double, y As Double, w As Double, h As Double
Set r = New Rect
ActiveSelection.GetBoundingBox x, y, w, h
r.SetRect x, y, w, h

Set Filter = d.ExportBitmap(fname, cdrJPEG, cdrCurrentPage, cdrRGBColorImage, 0, 0, 72, 72)
With Filter
.Compression = 0
.Optimized = False
.Smoothing = 0
.SubFormat = 1
.ExportArea = r
.Progressive = False
.Finish
End With

' --- code end ---
Выдает