Public Sub ChartInterior()
Dim myChart As Chart
'Reference embedded chart
Set myChart = ActiveSheet.ChartObjects(1).Chart
With myChart 'Alter interior colors of chart components
.ChartArea.Interior.Color = RGB(1, 2, 3)
.PlotArea.Interior.Color = RGB(11, 12, 1)
.Legend.Interior.Color = RGB(31, 32, 33)
If .HasTitle Then
.ChartTitle.Interior.Color = RGB(41, 42, 43)
End If
End With
End Sub
|