Shape.Application Property (Visio)
Returns the instance of Microsoft Visio that is associated with an object. Read-only.
The following Microsoft Visual Basic for Applications (VBA) macro gets the Application object associated with the active document and prints its process ID number in the Immediate window.
Public Sub Application_Example() Dim vsoApplication As Visio.Application Dim vsoDocument As Visio.Document Set vsoDocument = ActiveDocument 'Get the instance of Visio associated with the Document object. Set vsoApplication = vsoDocument.Application Debug.Print "The process ID of the Application object associated with the active document is: " & vsoApplication.ProcessID End Sub