کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

ImageProcess Object ( تغییرات روی تصویر )



پست زیر درباره  مواردی که می توان روی Image انجام داد مثل تغییر سایز ( Scale ) یا Rotation و  Resolusion

ImageProcess : 

مدیریت زنجیره ی Filter . آبجکت ImageProcess می تواند با استفاده از  WIA.ImageProcess ساخته شود.


ImageProcess.FilterInfos Property : 

مجموعه ای از تمام فیلترهای موجود را فراخوانی میکند . هر عکسی شامل یکسری داده است مثل ارتفاع ، رزلوشن که اینها در زنجیره فیلتر جمع آوری یا Collect شده اند. شما به اینها دسترسی پیدا می کنید و هر کدام که ReadOnly  نباشد می توانید تغییر و ذخیره کنید.




برای لود یک فایل یا ذخیره از آبجکت ImageFile استفاده میشود و برای ساختش از عبارت WIA.ImageFile داخل CreateObject و تنظیم آن به یک Variable استفاده میشود یا می توانید از رفرنس هایی که در Vba وجود دارد تیک آنرا بزنید و دیگر از CreateObject استفاده کنید.


Set Img=CreateObject("WIA.ImageFile")

Img.LoadFile(path & filename)

Method : LoadFile , SaveFile 


آبجکت ImageFile یک ظرف است که Image هایی را که به کامپیوتر ارسال می کنید در آن نگهداری میشود و دارای دو متد بالاست و پراپرتی هایی از جمله Width و Height و ....



آبجکت ImageProcess حاوی FilterInfos مجموعه ای از تمام فیلترهای موجود ,  Filters مجموعه فیلترهایی که باید به یک ImageFile    اعمال شود .و  متد Apply برای اقدام و انجام.


پس با توجه به یادداشت بالا می بایست از Add استفاده کنیم برای اضافه کردن FilterInfos به مجموعه Filters.


Set IP=CreateObject("WIA.ImageProcess")

'Assign Filters

'Appends or inserts a new Filter of the 'specified FilterID into a Filters collection.

'Method Add ( اضافه یا درج فیلتر جدید داخل مجموعه فیلتر)

IP.Filters.Add IP.FilterInfos("Scale").FilterID

'Retrieves the FilterID (FilterInfo) for this filter.

IP.Filters(1).Properties("MaximumWidth")=

IP.Filters(1).Properties("MaximumHeigth")=

'Filter APPLY On Inage

Set Img=IP.Apply(Img)

Img.SaveFile(.....)



wingdi-createcompatiblebitmap





.




Device Context


















BMP_file_format

 Picture Property Doffice.11

stdole.SavePicture


The IDispatch interface ID is defined as a GUID with the value of {00020400-00000000-C000-000000000046}

H20400&

HC0&

H46&


GUID.htm&id