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....
Comments
Post a Comment