ShapeRange Property
Returns a ShapeRange object that represents the specified object or objects. Read-only.
Example
This example creates a shape range that represents the embedded charts on worksheet one.
Set sr = Worksheets(1).ChartObjects.ShapeRange