how to use inbuilt camera app to take picture and save it in excel sheet..

[Nitesh Khot]

Hi ..,

I am looking vba code to capture picture from any inbuilt camera app and save picture to folder and in excel sheet ..


it is possible ....


Thanks in advance

Nikh

 

[Marc L]

Hi !

Maybe, plenty examples on Web like in this thread …

​

 

[Nitesh Khot]

have gone thr this but getting error in below line

RetVal = Shell("ApplicationName " & "/preview /delay 5000", vbNormalFocus )

Option Explicit

Private Sub Capture_Photo()
    Dim RetVal As Variant
    Dim n As String
    Dim ImageName, ApplicationName, desktoppath As String
      
    ' Make sure the current directory is set to the one
    ' where the Excel file is saved
     desktoppath = Environ("UserProfile") & "\Desktop\New folder\"
     ChDir (desktoppath)
    n = InputBox("Enter Initial name for image", "Name for Image")
       
     ' Capture new image
     
    
     ImageName = "/filename " & desktoppath & n & Format(Now, "DDMMYYYY") & ".bmp"
     ApplicationName = desktoppath & "CommandCam" & " /filename" & ImageName

     RetVal = Shell("ApplicationName " & "/preview /delay 5000",  vbNormalFocus )

    ' Short delay to let new file finish saving
    Application.Wait (Now + TimeValue("00:00:01"))
End Sub

 

[vletm]

I cannot test this, but You could change that line:

RetVal = Shell(ApplicationName & " /preview /delay 5000", vbNormalFocus )

... after that ApplicationName could be as

ApplicationName = desktoppath & "CommandCam" & " /filename" & ImageName

 

[Marc L]

Original codeline works on my side …


​

 

[Nitesh Khot]

thanks working very well...

 

[bejaranoangel]

Attaching sample!!
Best Regards