Регистрация | | запомнить |
 
 
ВК



Просматривают:   1 Анонимно





Свойство ExportArea в ExportFilter
print | #
PC/director
Присоединился:
2005/2/5 2:25
Откуда РФ
Сообщений: 4640
Offline
Свойство ExportArea в ExportFilter

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


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

Опубликовано: 2011/1/14 16:31
_________________
I love vector graphics!!!


Re: Свойство ExportArea в ExportFilter
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
Dim r As Rect
Set r = New Rect

Опубликовано: 2011/1/14 16:51
_________________


Re: Свойство ExportArea в ExportFilter
PC/director
Присоединился:
2005/2/5 2:25
Откуда РФ
Сообщений: 4640
Offline
'----- 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 ---
Выдает




Опубликовано: 2011/1/14 17:47
_________________
I love vector graphics!!!


Re: Свойство ExportArea в ExportFilter
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36
Откуда Барнаул
Сообщений: 252
Offline
А, так ExportArea не принадлежит ExportFilter. Свойство относится к StructExportOptions или передаётся как один из параметров в функцию ExportBitmap

Опубликовано: 2011/1/14 18:38
_________________


Re: Свойство ExportArea в ExportFilter
PC/director
Присоединился:
2005/2/5 2:25
Откуда РФ
Сообщений: 4640
Offline
Спасибо!
Удалось!

Опубликовано: 2011/1/14 19:53
_________________
I love vector graphics!!!







Форма быстрого ответа
ЛогинИмя   Пароль   Логин
Сообщение:          

      ПРИМЕР


 [далее...]
Уведомлять о сообщениях в теме.



[Настройки поиска]