In diesem Beispiel wird das eingebettete Diagramm in das neue Diagrammblatt "Monthly Sales" verschoben.
Worksheets(1).ChartObjects(1).Chart _ .Location xlLocationAsNewSheet, "Monthly Sales"