In diesem Beispiel wird ein Formbereich erstellt, der die eingebetteten Diagramme des ersten Tabellenblattes darstellt.
Set sr = Worksheets(1).ChartObjects.ShapeRange