vba - 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(, "Visio.Application")
If VisioApp Is Nothing Then
Set VisioApp = CreateObject("Visio.Application")
If VisioApp Is Nothing Then
MsgBox "Can't connect to Visio"
Exit Sub
End If
End If
On Error GoTo 0
vsoStrng = Worksheets("Generation").Range("C" & 3).Value
FName = vsoStrng

VisioApp.Documents.Open FName '
VisioApp.Visible = True
End Function
Sub ShapeControl()
Dim shp As Shape
Dim mst As Master
Dim Verdana_ID As Integer

Verdana_ID = ActiveDocument.Fonts.Item("Verdana").ID

' iterate all shapes per page
For Each shp In ActivePage.Shapes
    ' declare parent master for current shape
    Set mst = shp.Master
    ' Process only shapes that have parent master-shape
    If Not (mst Is Nothing) Then
    ' Connector Properties Settings
    If mst.Name = "Dynamic connector" Then shp.Cells("LineColor").Formula = "RGB(255,255,0)": shp.Cells("LineWeight").Formula = "1.0 pt"
    ' Process Box Properties Settings
    If mst.Name = "Process" Then shp.Cells("Width").Formula = "1.5": shp.Cells("Height").Formula = "2.0 ": shp.Characters.CharProps(visCharacterSize) = 12
    End If
Next
End Sub

The above code is not working can anyone help

question from:https://stackoverflow.com/questions/65839966/is-there-any-method-to-change-shape-properties-of-visio-diagram-from-excel-macro

Answer 1

Waitting for answers