In diesem Beispiel wird ein eingebettetes Diagramm angewiesen, Daten nach Spalten zu zeichnen.
Worksheets(1).ChartObjects(1).Chart.PlotBy = xlColumns