我在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