Developing.ru

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

Sub Макрос2()
Sheets("Лист4").Select
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.SeriesCollection(4).Select
With Selection
.MarkerForegroundColorIndex = 1
End With
End Sub

На строке ActiveSheet.ChartObjects("Диагр. 1").Activate получил
Невозможно получить свойство ChartObjects класса Workshet


Как перечислить все диаграммы, все графики и сделать чвет маркера черным?

Думаю, вот это Вам поможет:
http://www.msoffice.nm.ru/faq/macros/chart.htm#faq316

Может не очень красиво, но работает.
Не смог без цикла.

Dim MyObjects As Object

Set MyObjects = ActiveSheet.ChartObjects
For i = 1 To MyObjects.Count
For j = 1 To MyObjects(i).Chart.SeriesCollection.Count
MyObjects(i).Chart.SeriesCollection(j).MarkerForegroundColorIndex = 1
Next j
Next i