Is there any method to change shape properties of visio diagram from excel macro

Question

Sub MAIN() Call OpenVisioDoc End Sub

Function OpenVisioDoc()

Dim FName As String Dim VisioApp As Object

On Error Resume Next Set VisioApp = GetObject(, &quo