我试图创建一个宏来更改连接到特定块的连接器的厚度。这是我到目前为止: Private Sub HighlightPaths_Click()
Dim selection As Shape
Dim connections() As Long
Dim i As Integer
'Msgbox glued shapes
If ActiveWindow.selection.Count = 0
我需要创建许多使用如下模板的流程图。 每个流程图都会更改“TABLE_NAME”标签。 最后,每个流程图被导出为图像(.PNG) Private Sub CreateFlowChartVisio(ByVal TemplateFilename As String, ByVal saveAs As Object)
Dim vApp As Visio.Application
Dim