How to run a report that sums a number field in a shape?

[warnerj]

I need to create a report for a selection of organisational shapes, and run a
report that sums up the shapes number field in their custom properties.

I have only managed to run a report that counts the shapes.

Any help would be greatly appreciated.

 

[Philippe C.]

I had a look at the manager shape.
In the Shapesheet, under custum properties I do not find "shape number"

Maybe the problem is the same as with the "length". It is a property of the
shape and not of the shapesheet of the shape.

Maybe this can help :
Sub UpdateLengths()
' to be run on a selection of shapes
' before making a report with the lengths of the shapes
' LengthIU in Visio 2003 only works with closed shapes

Dim sel As Visio.Selection
Dim shp As Visio.Shape
Dim iRowIndex As Integer
Set sel = ActiveWindow.Selection

For Each shp In sel
If Not (shp.SectionExists(visSectionUser, 1)) Then
shp.AddSection visSectionUser
End If
If shp.CellExists("User.lengte", 1) Then
iRowIndex = shp.CellsRowIndex("User.lengte")
shp.DeleteRow visSectionUser, iRowIndex
End If
shp.AddNamedRow visSectionUser, "Lengte", 0
shp.CellsU("User.Lengte").Formula = shp.LengthIU
Next shp
End Sub

 

[Al Edlund]

Phillippe,
(I'm guessing, since it is an orgchart question) I suspect he is looking for
a count of subordinates for a single manager. Maybe he can describe it
again, a different way.
al

 

[Philippe C.]

I added some assitents to a manager. I found no "number" or "count" row in
the shapesheet. I added a numeric property. I could not add this property
in any of the three available reports. In a totally new Report, I could.
There is an "immediate subordinates" property.


Otherwise there is still the "count" property in the "Connects" collection.

 

[warnerj]

Al Edlund, you are correct. I am trying to run a report that gives me a
headcount for the company. I have set a custom property to each of the shapes
that shows the number of people in a department. Therefore it is not just a
case of counting the shapes as some shapes have a value greater than 1.

Philippe C, im not familiar with the "immediate subordinates" report? I not
sure weather this would solve my problem, but im willing to try anything.

Kind Regards