ShapeRange Property Example

This example creates a shape range that represents the embedded charts on worksheet one.

Set sr = Worksheets(1).ChartObjects.ShapeRange