InlineShape.GroupItems (Word)

Returns a GroupShapes collection that represents the shapes that are grouped together for an inline shape.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Range.InlineShapes(1).GroupItems