I have added 3 shapes to the worksheet and the colours are based on the schemecolor value.
Sub XX()
Dim chtTemp As Chart
Dim shpTemp(3) As Shape
Dim rngTable As Range
Dim lngIndex As Long
Set shpTemp(1) = ActiveSheet.Shapes("Rectangle 8")
Set shpTemp(2) = ActiveSheet.Shapes("AutoShape 9")
Set shpTemp(3) = ActiveSheet.Shapes("AutoShape 10")
Set chtTemp = ActiveSheet.ChartObjects(1).Chart
Set rngTable = Range("A2:F8")
With chtTemp.SeriesCollection(1)
.HasDataLabels = True
For lngIndex = 1 To .Points.Count
.Points(lngIndex).DataLabel.Text = rngTable.Cells(lngIndex, 1)
With shpTemp(rngTable.Cells(lngIndex, 5))
.Fill.ForeColor.SchemeColor = rngTable.Cells(lngIndex, 6)
.Copy
End With
.Points(lngIndex).Paste
Next
End With
End Sub
Bookmarks