Visio Discussions > Deployment

Using the camera in Visio


Hi guys,

I just found a snippet of code for taking a photo with the webcam using microsoft Excel:


I'd very much like to use this in Visio, which we'll be using to take photos on tablets. I've searched the code, but can find nothing in the Vision msdn documentation:

or the object browser in commandbuttons. Has anyone done this before?  or is there perhaps a standard windows version i can call from the command line?

Hey Ken:

    You could cheat and use Excel VBA within Visio.  Just add a reference to the Excel Object Library via the VBA UI and have at it.

--- Code ---

Sub SmileForTheCamera()

Dim ExcelApplication As Variant

On Error Resume Next
Set ExcelApplication = GetObject(, "excel.application")
If ExcelApplication Is Nothing Then
    Set ExcelApplication = CreateObject("excel.application")
    End If
On Error GoTo 0


End Sub

--- End code ---

   Hope this helps,

   - Ken

Thanks same prob here


[0] Message Index

Go to full version