Thanks, Andy, that site did it for me!
Final code:
Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range
Dim iColorIndex As Long
Dim chtTemp As ChartObject
Set rPatterns = ActiveSheet.Range("BC1:BD8")
For Each chtTemp In ActiveSheet.ChartObjects
With chtTemp.Chart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Name)
If Not rSeries Is Nothing Then
iColorIndex = rSeries.Interior.ColorIndex
With .SeriesCollection(iSeries)
.Border.ColorIndex = iColorIndex
.MarkerForegroundColorIndex = iColorIndex
.MarkerBackgroundColorIndex = iColorIndex
.MarkerStyle = xlTriangle
End With
End If
Next
End With
Next
End Sub
Thank you so much for your help!!
N
Bookmarks