Este fórum está sendo desativado

[Alanderson]

Vejo muita solução para controlar a camera canon usando outras liguagem.
como eu sou um iniciante e gosto de usar a linguagem VBA, gostaria de pedir a ajuda dos senhores.
tenho um codigo que identifica minha camera digital porém não tira a foto.
segue o codigo.

Código: Selecionar todos

Private Sub Command1_Click()

  Dim oWIA_DeviceManager As WIA.DeviceManager
  Dim oWIA_Device As WIA.Device
  Dim oWIA_ComDlg As WIA.CommonDialog
  Dim oImageFile As WIA.ImageFile
  Dim i As Long

  Set oWIA_DeviceManager = New WIA.DeviceManager




  If oWIA_DeviceManager.DeviceInfos.Count > 0 Then
      Set oWIA_ComDlg = New WIA.CommonDialog

      ' Index the Devices property starting here at 1, not 0 .
      For i = 1 To oWIA_DeviceManager.DeviceInfos.Count
          Set oWIA_Device = oWIA_DeviceManager.DeviceInfos.Item(i).Connect
            

          ' Use this to show Acquisition CommonDialog
          Set oImageFile = oWIA_ComDlg.ShowAcquireImage

          'Use this to show Acquisition Wizard
          'Set oImageFile = oWIA_ComDlg.ShowAcquisitionWizard(oWIA_Device)

      Next i
  Else
      MsgBox "No WIA compatible device attached!"
  End If

End Sub

A canon disponibiliza uma dll chamada EDSDK.dll que é utilizada para enviar o comando para a camera, existe procedimentos para C# e outras linguagem mais nunca vi nada parecido para VBA.

O que eu gostaria é enviar o comando para a camera tirar a foto e salvar em uma pasta.

alguem pode me dar uma ajuda?