refer to an object in a group

[Linda Edlund]

Is that possible to refer to an object in a group

ActiveSheet.Shapes("group_3"...?..."rectangle_4").Select
or
ActiveSheet.Shapes("group_7"...?..."textbox_3").Text= "abc"


thanks

 

[Andy Pope]

Hi,

You can access a shape within a group but not by name.
You have to use a numeric index.

The following should help. Add 3 rectangles to the active sheet and then
group them.

'---------------------------
Sub X()
Dim shpGroup As Shape
Dim shpTemp As Shape
'
Set shpGroup = ActiveSheet.Shapes(1)
If shpGroup.Type = msoGroup Then
For Each shpTemp In shpGroup.GroupItems
Debug.Print "Grouped shape ", shpTemp.Name
Next
With shpGroup.GroupItems(1)
.Fill.ForeColor.RGB = RGB(0, 255, 0)
End With
Else
' normal ungrouped shape
Debug.Print "Shape ", shpGroup.Name
End If
End Sub
'---------------------------

Cheers
Andy

 

[Linda Edlund]

Thank you for the answer Andy