Detecting shapes in groups

[Raist via OfficeKB.com]

Hello, I am writing an application where I need to detect witch shape in a
group is selected.

I need to be able to change the text in a shape, and the name of the shape.
This is not a problem if the selected shape is not a part of a group. I need
to be able to detect witch of the shapes in a group is curently selected.

Thanks...

 

[Shyam Pillai]

Raist,
Take a look at this example:
'===============================================
Sub ShapeSelectionWithinGroup()
With ActiveWindow.Selection
If .ShapeRange(1).Type = msoGroup Then
If .HasChildShapeRange Then
'First shape in the selection within the group
With .ChildShapeRange(1)
.TextFrame.TextRange.Text = "Test"
End With
End If
End If
End With
End Sub
'===============================================