This diagram is created: using this code: Copy the code: Option Explicit Dim strVSDPath, filesys Dim vsoApplication, vsoDocument, vsoPages, vsoPage Dim vsoMaster1, vsoMaster2, vsoStencil Dim vsoShape1, vsoShape2, vsoConnector1 Dim itr Const visAutoConnectDirDown = 2 'Connect down. Const visAutoConnectDirLeft = 3 'Connect to the left. Const visAutoConnectDirNone = 0 'Connect without relocating the shapes. Const visAutoConnectDirRight = 4 'Connect to the right. Const visAutoConnectDirUp = 1 'Connect up. ' Visio file to be created. strVSDPath = "D:\Workspace_Visio\TestRunFlow.vsd" 'delete any previously existing Suite file Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(strVSDPath) Then filesys.DeleteFile strVSDPath End If Set filesys = Nothing &#