В чем ошибка

[n!ghtmare*]

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

ActiveSheet.ChartObjects("Диагр. 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).XValues = "=Лист1!R1C1"
    ActiveChart.SeriesCollection(1).Values = "=Лист1!R1C1"

[RayShade]

Судя по стилю заданного вопроса - в ДНК

[n!ghtmare*]

Судя по стилю заданного вопроса - в ДНК

А мне не смешно
Почему когда делаешь макрос>начать запись, а потом запустить выводится ошибка Невозможно получить свойство ChartObjects класса Worksheet

[RayShade]

Может ты записываешь макрос на одном листе, а воспроизводишь на другом?

[n!ghtmare*]

Нет, лист тот

[RayShade]

Странно.. У меня заработало после того как я Activesheet заменил на прямое указание листа Sheets(1) а имя Диагр. 1 на индекс, то есть просто на 1.

[n!ghtmare*]

Заработало, видимо это глюк VBA

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

ActiveChart.SeriesCollection(1).XValues = "=Лист1!R1C1"

А здесь что поменять?

[RayShade]

Я бы на самом деле вообще код написал вот такой примерно:

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

with sheets(1).chartobjects(1)
.ChartArea.Select
.SeriesCollection(1).XValues = "=Лист1!R1C1"
.SeriesCollection(1).Values = "=Лист1!R1C1"
end with

И посмотрел. А елси ошибка быдет продолжаться то, вероятно, параметры может неправильные?

[n!ghtmare*]

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

.ChartArea.Select

Object doesn't support property or method
Блин, не работает

[GSerg]

Выкинь нафиг эту строку.

На будущее: диаграммы всегда называются "Chart N", так что либо так, либо по номеру.

Ну и последнее: код

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

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values = "=Лист1!R24C5:R25C5"

прокатывает, но только если в целевом диапазоне что-то есть.

[n!ghtmare*]

А как поменять номер диаграммы?

[GSerg]

.Name

RayShade был прав...