In diesem Beispiel wird das erste eingebettete Diagramm aktiviert.
Worksheets("sheet1").ChartObjects.Item(1).Activate