How can I loop to find the grouped shapes count
Brad:
Thank you very much for the help. So I assume it's not
possible to do something like activesheet.pictures.count
for grouped shapes.
David
-----Original Message-----
This will count the groups of shapes.
Sub Counter()
Dim i As Integer
i = 0
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoGroup Then
i = i + 1
End If
Next
MsgBox i
End Sub
That was fun figuring out. Heh
HTH.
-Brad
-----Original Message-----
I am trying to figure out a way of counting the number
of
grouped
shapes on a worksheet but I can't seem to capture the
information. I
thought I could use something like ...
PictCount = ActiveSheet.GroupShapes.Count
but I am having no luck.
.
.
|