Свойство ExportArea в ExportFilter

Как передать параметры в это свойство написано as Rect y что то я не могу создать объект Rect


Прошу помощи!

Dim r As Rect
Set r = New Rect

'----- 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 ---
Выдает

А, так ExportArea не принадлежит ExportFilter. Свойство относится к StructExportOptions или передаётся как один из параметров в функцию ExportBitmap

Спасибо!
Удалось!