Counting Shape Data Fields (Rows)

[Hamwic]

I'm trying to write a little routine that will need to count the number of data fields/rows contained in a shape. The fields have named (EmployeeName, Band, StartDate,EndDate etc.) rather than having "Row_0", "Row_1", "Row_2" etc..

The field (Row) names can change depending on the shape, so cannot hard code the name in. What I was thinking is writing a loop and adding one on ech pass so that I can lookup the row number, i.e.

Sub Counting_Fields

vsoShape As Visio.Shape
Dim intCount as Integer
Dim strPropRow as String

IntCount = 0

        For Each vsoShape In vsoPage.Shapes
            intPropRow = vsoShape.Cells("prop.Row_" & intCount)
            intCount = intCount + 1
       Next

End Sub

As Row_0 is actually named as Employeename, I cannot use the above syntax. I need to find a way of counting each row without using the field name.

p.s. intCount will be used elsewhere, I cut the whole routine down just to include whjat I thought was relevant

Thanks in advance!

[Paul Herber]

(this is Delphi/FreePascal syntax but the idea should be the same.)

Code Select Expand


rows := shpObj.RowCount[visSectionProp]


[Hamwic]

Thanks Paul!! That helped massively!

[Paul Herber]

:-)