Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I loop to find the grouped shapes count
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I loop to find the grouped shapes count
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. . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. . . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I loop to find the grouped shapes count
There might be - but I couldn't find it.
-----Original Message----- 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. . . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
In Excel how do I find unformatted shapes that are invisible? | Excel Discussion (Misc queries) | |||
Find loop doesn't loop | Excel Discussion (Misc queries) | |||
find value in A, grouped to B | Excel Worksheet Functions | |||
Find excisting values, make them grouped under the new value | Excel Discussion (Misc queries) | |||
PROB: Grouping Shapes With An Array Loop | Excel Programming |