Change the Legend Box Colour in PowerPoint

You will have to change the color of whole series and not only the Bars:

 objSeriesCollection.Item(index).Format.Fill.BackColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppBackground

 objSeriesCollection.Item(index).Format.Fill.BackColor.RGB = colors(index)