how can one tell if there are any grouped shapes on a page?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Slowconn - 24 Jul 2007 23:22 GMT

How can one tell if there are any grouped shapes on a page
(or, in PPT, on a slide)?

Reply to this Message

Slowconn - 24 Jul 2007 23:44 GMT

Forgot to add: working in Office 2003 (both in Word and in PPT)

> How can one tell if there are any grouped shapes on a page
> (or, in PPT, on a slide)?

Reply to this Message

muffet - 25 Jul 2007 01:02 GMT

Hi Slowconn,

Click on to the shapes, and if the shape dots have a cross in the middle;
they are grouped.

Same for PPT.

Signature

muffet

> Forgot to add: working in Office 2003 (both in Word and in PPT)
>
> > How can one tell if there are any grouped shapes on a page
> > (or, in PPT, on a slide)?

Reply to this Message

Helmut Weber - 25 Jul 2007 16:43 GMT

Hi Slowconn,

Sub TestIIIa()
Dim oShp As Shape
Dim bGrp As Boolean
On Error Resume Next
With Selection.Bookmarks("\page").Range
If .ShapeRange.Count > 0 Then
For Each oShp In .ShapeRange
If oShp.GroupItems.Count > 1 Then
bGrp = True
End If
Next
End If
End With
If bGrp Then msgbox "Grouped shapes on this page"
End Sub

I couldn't find a way without error handling.
Shape and shaperange is a mystery to me.

If it helps, its alright,
otherwise, disregard.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message