Форматирование встроенной диграммы

[bbs]

Подскажите, как у встроенной диграмме в рабочий лист изменить размеры с помощью кода вба. Желательно разместить ее между колонками a and e.?

[GSerg]

with chartobjects(1)
.left=columns("a").left
.width=columns("e").left-columns("a").left
end with

[bbs]

Спасибо. И еще вопрос. Я копирую диграмму которая размещается на отдельном рабочем лимсте на другой лист. Т.е. она получается встроенной.
При использовании функции записи макроса получается что она имеет уникальное имя(диграмма1, диграмма2), при чем копирую одну и туже диграмму.
Вопро с в следующем. Как обратится к ней если на этом рабочем листе будет таких как она около 10.

[GSerg]

Функия duplicate возвращает ссылку на копию. Поэтому можно либо запомнить в переменную:

Код: Выделить всё

dim C as chartobject
set C=activechart.duplicate

и потом работать с C, либо сразу:

Код: Выделить всё

with activechart.duplicate
  msgbox .name
  .left=.left+100
  'ну и чё там в голову придёт...
end with