Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Manipulating Charts

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