Изменение свойств объекта не активируя его

[ndvikulov]

ActiveSheet.ChartObjects ("Диаграмма 5").Activate
ActiveChart.SetSourceData Source:=Sheets("Лист 1").Range(Cells(3, 9), Cells(i, 9))

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

Как поменять свойства объекта не активируя его?

И еще вопрос. Можно ли график построить по данным из массива? Допустим есть массив с известным количеством элементов. Source:=ИмяМассива не канает

[аналитика]

можно вот так

ActiveChart.SeriesCollection(2).Values = "={1;2;3;4;5}"

[ndvikulov]

Сообщение от аналитика

можно вот так

ActiveChart.SeriesCollection(2).Values = "={1;2;3;4;5}"

активация объекта еще до изменения значений происходит же...

[doober]

Так проканает.Соответственно имена и диапазоны ваши

Sub Test()
Dim Diag As Shape
 
Set Diag = Sheets("Лист1").Shapes("Диаграмма 1")
 
 Diag.Chart.SeriesCollection(1).XValues = "=Лист1!$A$10:$A$2026"
   Diag.Chart.SeriesCollection(1).Values = "Лист1!$B$10:$B$2026"
   
  Set Diag = Nothing
End Sub

[ndvikulov]

Сообщение от doober

Так проканает.Соответственно имена и диапазоны ваши

Sub Test()
Dim Diag As Shape
 
Set Diag = Sheets("Лист1").Shapes("Диаграмма 1")
 
 Diag.Chart.SeriesCollection(1).XValues = "=Лист1!$A$10:$A$2026"
   Diag.Chart.SeriesCollection(1).Values = "Лист1!$B$10:$B$2026"
   
  Set Diag = Nothing
End Sub

как я понял тут динамически создается диаграмма. а у меня уже созданная

[doober]

Я же написал,свои имена и диапазоны вставить

[ndvikulov]

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


Что с этим можно сделать?(

вопрос о том, как в диаграмме использовать данные из массива остается открытым

[R Dmitry]

так программно снимите защиту листа а затем ее верните назад
ActiveSheet.Protect Password = "123"
ActiveSheet.Unprotect Password = "123"

[ndvikulov]

и что? тоже самое. без защиты работает, а с защитой нет. мне нужно использовать этот файл с защитой

[R Dmitry]

Сообщение от ndvikulov

и что? тоже самое. без защиты работает, а с защитой нет. мне нужно использовать этот файл с защитой

так вы ж программно снимаете защиту
ActiveSheet.Unprotect Password = "Ваш пароль" В начале модуля
а затем ставите чего непотнятного
ActiveSheet.Protect Password = "Ваш пароль" в конце модуля