Visio Guy

Visio Discussions => Deployment => Topic started by: tomp377 on June 23, 2016, 06:05:43 AM

Title: Using the camera in Visio
Post by: tomp377 on June 23, 2016, 06:05:43 AM
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?
Title: Re: Using the camera in Visio
Post by: Hey Ken on June 23, 2016, 12:08:01 PM
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

Title: Re: Using the camera in Visio
Post by: jfvert on July 08, 2016, 01:39:37 PM
Thanks same prob here