将comandcam中的凸轮从前置摄像头更改为摄像头后面

时间:2015-07-01 10:39:06

标签: excel vba excel-vba userform

我在UserForm中拍了一张照片。但照片是由前置摄像头拍摄的。 但我需要照相机后面的照片

         Tabelle2.Cells(1, 1) = Tabelle2.Cells(1, 1) + 1
         picNumber = Tabelle2.Cells(1, 1)

         fotoNumber = Me.txtNumriSerik.Value
         picName = fotoNumber & "-" & picNumber & ".bmp"



         ChDir (ActiveWorkbook.Path)
         base = ActiveWorkbook.Path & "\"
         picPath = base & picName


         RetVal = Shell(base & "CommandCam.exe /filename """ & picPath & """", vbHide)

         For i = 0 To 5
         Aviso "Eapere..." & i
         Application.Wait (Now + TimeValue("00:00:01"))
         Next

0 个答案:

没有答案