ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
پست زیر درباره مواردی که می توان روی 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(.....)
.
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&