Adding some more information
1) Initially, Excel data headers are as below:
A1: Name
B1: Description
C1: Days
D1: Times
E1: Timezone
2) Starting from second row, for each row of data, a visio shape should be generated.
3) This is how the visio backend code of the required shape look like
'Main outer rectangle/master container
Dim MasterContainerShp As Visio.Shape
Set MasterContainerShp = ActivePage.DrawRectangle(2, 1, 8, 4)
Dim DescriptionBoxShp As Visio.Shape
Set DescriptionBoxShp = ActivePage.DrawRectangle(2, 3.5, 8, 2)
Dim JobnameShp As Visio.Shape
Set JobnameShp = ActivePage.DrawRectangle(2, 3.5, 8, 4)
Dim JobDaysOfExecution As Visio.Shape
Set JobDaysOfExecution = ActivePage.DrawRectangle(2, 1.5, 4, 2)
Dim JobTimingShp As Visio.Shape
Set JobTimingShp = ActivePage.DrawRectangle(4, 1.5, 6, 2)
Dim JobTimeZone As Visio.Shape
Set JobTimeZone = ActivePage.DrawRectangle(6, 1.5, 8, 2)
4) This is exactly how the shape should be. There is an outer rectangle within which there are subshapes
5) From second row, value in column 'A' should go as content in JobnameShp
Value in column B goes to DescriptionBoxShp
value in column c goes to JobDaysOfExecution
value in D goes to JobTimingShp and offcourse E column data goes to JobTimeZone
6) Similar process to be repeated for all rows in excel.
7) All visio figures needed on the same page in a nonoverlapping fashion.
Now, I have created shapes with the required content.
I dont know if there is a better way than the above code to create those shapes. However, my next step would be to connect these shapes I have created.
Again, the sample data on how to establish connections is given in my first post.
whatever is in column B should be connected to column A (one by one)
If at all anytext is not found in visio ( what we look for in column A and column B is not found on searching the text present in JobnameShp of all shapes in visio doc) then skip this and move to the next row in excel.
Can somebody please help? Thanks so much!!
