excel2003 свойства класса ChartArea

[ppklad]

дело в то что не могу заставить работать примерно такой код:

Charts.Add
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Показатели"
  ActiveChart.SetSourceData ActiveWorkbook.Worksheets(4).Range("a2:a10")
  i = ActiveSheet.ChartObjects.Count
  With ActiveChart.ChartArea
    .Interior.ColorIndex = 3
    .Left = 5 ' собственно эту строку и выбивает
  End With

выбивает "run-time error '1004'
нельзя установить свойства Left класса chartarea
Самое интересное, что схожий код в 2007 экселе выполняется на ура, и ошибки стали заметны только при тестировании в 2003м.
Осваиваю вба недавно,в литературе решения не нашел.. так что не судите строго)

[ppklad]

может есть какието еще способы двигать диаграмму по листу? shapes().increment. работает както странно через раз, и двигает кнопки, которые двигать не нужно(

[EugeneS]

см. вложение, макрос "test"

Все работает нормально через ShapeRange.Increment...

[ppklad]

спасибо большое, в 2007 работает чудесно, но в 2003 опять какая то засада=( следующий ниже код обрабатывает отлично все диаграммы но на последней выбивает ошибку Object doesn't support this property of metod причем последняя диаграмма выглядит иначе чем другие(серый фон и вообще немного другая), при повторном запуске макроса уже все диаграммы рисуются аналогично(серый фон..) и не смещаются( если не трудно поясните что не так происходит.. или ткните носом в литературу, буду очень признателен

i = 1
vi = -120
For Each ichart In ActiveSheet.ChartObjects
    ichart.Select
    If i Mod 2 <> 0 Then
      With Selection.ShapeRange: .IncrementLeft -350: .IncrementTop vi 'эту строку выбивает
      End With:
    Else
      With Selection.ShapeRange: .IncrementLeft 20: .IncrementTop vi
      End With:
      vi = vi + 245
    End If
    i = i + 1
Next

[EugeneS]

можете выложить файл с этой "выглядит иначе чем другие" диаграммой?

[ppklad]

конечно, просто там довольно трудно с наскока разобраться.. тем более код очень криворукий

[EugeneS]

вот в таком виде перемещает диаграммы нормально в Вашем коде:

For z = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(z)    
If i Mod 2 <> 0 Then
      .Left = -350: .Top = vi
Else
      .Left = 20: .Top = vi
      vi = vi + 245
 End If: End With
    i = i + 1
Next

[ppklad]

EugeneS, большое спасибо, сделал, работает(правда теперь все диаграммы серые, но это не важно), но так и не понял что не так делал( записывая, и затем разбирая макросы пришел к выводу, что обычные и "серые" диаграммы различаются, так серые эксель называет "Диагр. 15","Диагр. 14" и т.д., а обычные "Диаграмма 11","Диаграмма 9" но методы и свойства для передвижения использует те же самые, если кто хорошо разбирается с этими chart'ями растолкуйте пожалуйста

[EugeneS]

к сожалению, не подскажу, с диаграммами сталкиваюсь крайне редко

[ppklad]

бьюсь над корректной работой в 2003 офисе, никак не хотят chartы удаляться
пробовал и

For Each ichart In ActiveSheet.ChartObjects
      ichart.Delete
    Next

и так

For z = 1 To (ActiveSheet.ChartObjects.Count)'chart.count количество верно показывает =(
  ActiveSheet.ChartObject(z).Delete
Next

не хотят "серые" удаляться.. помогите пожалуйста