Размещение диаграммы на листе Exel

[Marill]

Код создает файлы с графиками:
Charts.Add
.......
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

Графики создаются где им удобно. Потом я их перетаскиваю туда куда нужно и придаю необходимый размер:
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Диагр. 1").ScaleHeight 1.19, msoFalse, msoScaleFromBottomRight
ActiveSheet.Shapes("Диагр. 1").ScaleWidth 1.21, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Диагр. 1").IncrementLeft -180.75
ActiveSheet.Shapes("Диагр. 1").IncrementTop -1.5

Когда следующий раз запускаю программу с новыми исходными данными для графика он располагается уже в другом месте и размеры не те.

Можно ли задать положение на листе и размер диаграммы так, чтобы они никогда не менялись?

[olik111]

With Worksheets(" ").ChartObject(1)
.Top = Range("c1").Top
.left = Range("c1").left
.width = Range("c1:i21").width
.height = Range("c1:i21").height
end with
и диаграмма будет расположена в диапазоне c1:i21

[Marill]

Ура! Работает! Спасибо!
Только там должно быть With Worksheets(" ").ChartObjects(1)