In diesem Beispiel wird die Höhe des eingebetteten Diagramms festgelegt.
Worksheets("Sheet1").ChartObjects(1).Height = 288