I love spelunking through the Visio shapesheet and creating Visio shapes that are more than just plain clipArt. I use CellsSRC() to explore because I can iterate through an entire shapesheet and learn. Though CellsSRC sounds like Cells Source, it actually stands for Section, Row and Cell. Section is misleading. If you look at the shapesheet, several sections that appear are actually all part of Section 1. Graham Wideman, one of the first Visio MVPs, did a great series of books explaining the intricacies of the shapesheet. Though it was a while ago, most of the information is still quite relevant. Any good Visio developer should have one on hand. I have them all and the are well used.
One thing I noticed was an object called RowType that does not have an explanation for the enumerations. There is a document on Geometry rows (it is under Geometry Section) but the other shapesheet sections are little more than a placeholder with a bried description and no links to further information, For example, Group Properties Section just says
“Contains cells for a group that control how you add shapes to a group, move members of a group, and select groups.”
Actually, Visio alumni David Cole pointed out that the page I mentioned, just has names, but no values. The VisioTag enumeration page has the names/values.
Here is some VBA code I used to find the RowTypes of the shapes on the current page.
Sub RTTest()
Dim curRow As Integer, nrows As Integer, RowCnt As Integer, SectNo As Integer, VsoShp As Visio.Shape
For Each VsoShp In ActivePage.Shapes
For SectNo = 1 To 255
nrows = VsoShp.RowCount(SectNo)
If VsoShp.SectionExists(SectNo, visExistsAnywhere) Then
Select Case SectNo
Case visSectionObject
For curRow = 1 To 512
If VsoShp.RowExists(SectNo, curRow, 1) Then
Debug.Print SectNo, curRow, VsoShp.RowType(SectNo, curRow)
End If
Next curRow
Case Else
For curRow = 0 To (nrows - 1)
Debug.Print SectNo, curRow, VsoShp.RowType(SectNo, curRow)
Next curRow
End Select
End If
Next SectNo
Next VsoShp
End Sub
and these are the results from my test shapes.
Section 1 sub 1 | 155 |
Section 1 sub 4 | 157 |
Section 1 sub 6 | 167 |
Section 1 sub 11 | 135 |
Section 1 sub 12 | 156 |
Section 1 sub 17 | 164 |
Section 1 sub 27 | 243 |
Section 1 sub 29 | 245 |
Section 2 | 131 |
Section 3 | 148 |
Section 4 | 149 |
Section 5 | 136 |
Section 7 | 153 |
Section 8 | 161 |
Section 9 | 170 |
Geometry Sections | 137, 138, 139, 140, 141, 143, 144, 165, 166, 193, 195, 236, 237, 238, 239, 239, 240 |
Section 240 | 169 |
Section 244 | 196 |
Section 247 | 199 |
Section 248 | 247 |
Section 249 | 248 |
It appears that the RowTypes are unique. Section 1 is a collection of rows. The Geometry Section ones do match the documentaion.
So, why the interest? A while back I created a set of Visio shapesheet section shapes. I was dissapointed that images of the shapesheet in documentation did not POP!. They were a joy for those who appreciated the shapesheet, but seemed to contain a lot of noise for someone struggling to understand. For example, the columns on LangId and Calendar were distracting. A Visio shape can be enhanced to make the text or background colour of a shapesheet cell standout. Distracting cells can be deleted, but would remain to give the cells of interest relativity to other cells and presence. Something a simple screenshot can not do without a lot of post production work. (If you wanted to update the shapesheet, then it is back to square one)
The next step was to be able to drop shapes on a Visio page and have Visio create a stencil of shapesheet section shapes that reflected those shapes.
I can go through a shapesheet using CellsSRC(), but it would be useful if Visio would tell me what I am looking at as I wander the shapesheet so I can place itappropriately in a new shapesheet section shape. I think RowType is the answer, but I can not find the appropriate documention.
For now I will use the Pokemon method and build my own table.
Pokemon Method – find them in the wild and use the environment I find them in to build a more descrpitive name. … and yes, I want to catch them all.
I hope you find this useful.
John… Visio MVP in x-aisle
JohnVisioMVP.ca