In diesem Beispiel wird das erste, in Sheet1 eingebettete Diagramm als unverankertes Objekt festgelegt (es wird weder mit den darunter liegenden Zellen verschoben noch ist es von deren Größe abhängig).
Worksheets("Sheet1").ChartObjects(1).Placement = xlFreeFloating