ارسال کامند به Device ( دوربین )

 متد (Device.ExecuteCommand(CommandID

برای گرفتن عکس توسط دوربین اول انتخاب Device با متد ShowSelectDevice و بعد ارسال کامند به آن دستگاه 

 : CommandID

wiaCommandTakePicture

ppResult = .ShowSelectDevice( _
  [ ByVal DeviceType As WiaDeviceType ], _
  [ ByVal AlwaysSelectDevice As VARIANT_BOOL ], _
  [ ByVal CancelError As VARIANT_BOOL ] _
) As HRESULT

Boolean منظور استفاده از True یا False 

 : WiaDeviceType
   UnspecifiedDeviceType  0 
ScannerDeviceType      1 
CameraDeviceType       2 
VideoDeviceType        3 

اسکنر کار با WIA در رفرنس اکسس (یوزر اینترفیس )

CommonDialog Object

محتوی تمام متدهایی است که UI ( رابط کاربری یا  User Interface ) را نشان میدهد و باید  "WIA.CommonDialog" با CreateObject ساخته شود یا CommonDialog در فرم آورده شود.

Methods

ShowAcquireImage

نمایش یک یا چند دایالوگ باکس که یوزر را قادر سازد تا  تصویر را از دستگاه مربوطع سازد بگیرد.

ShowAcquisitionWizard

ویزارد اسکنر و دوربین را فعال می کند ( نمایش )

ShowDeviceProperties

نمایش پراپرتی های دیالوگ باکس دستگاه یا Device مربوطه 

ShowItemProperties

نمایش آیتم های دیالوگ باکس دستگاه یا Device مربوطه 

باز شدن پنجره ی  اسکنر  

Dim Img 

Dim CommonDialog1

Set CommonDialog1=CreateObject("Wia.CommonDialog

Set Img = CommonDialog1.ShowAcquire

(Img.SaveFile (Img

میشود لوپ زد و پراپرتی های مربوطه رو گرفت   For Each Prp In

کپی در Word البته در خود Word نوشته شده مربوط به اکسس نیست 

objImage.SaveFile strPath ' save into temporary file
' Insert in Word Document
Selection.InlineShapes.AddPicture 

strPath

'Requires a reference to Microsoft Windows Image Acquisition Object Library

Dim Img 'As ImageFile _ )Set Img=CommonDialog1.ShowAcquireImage

_ ,UnspecifiedDeviceType

_ ,TextIntent

_ ,MaximizeQuality

( wiaFormatGIaf

(ScanDev=CommonDialog1.ShowSelectDevice(1,False,False

("Set img=CreateObject("Wia.ImageFile

      (ScanDev.Items(1).Transfer(WiaFormatBMP