Using the camera in Visio

[tomp377]

Hi guys,

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

CommandBars.FindControl(ID:=1764).Execute

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:

https://msdn.microsoft.com/en-us/library/office/ff765940.aspx

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]

Tom:

    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

ExcelApplication.CommandBars.FindControl(ID:=1764).Execute

End Sub

   Hope this helps,

   - Ken

[jfvert]

Thanks same prob here