Microsoft Office

Part VI
Programming Excel with VBA
The following macro performs the same function but works on all chart sheets in the active workbook:
Sub ChartType2()
Dim Cht As Chart
For Each Cht In ActiveWorkbook.Charts
Cht.ChartType = xlColumnClustered
Next Cht
End Sub
Modifying chart properties
The following example changes the legend font for all charts that are on the active sheet. It uses a For-
Next loop to process all ChartObject objects and uses the HasLegend property to ensure that the chart
has a legend. The code then adjusts the properties of the Font object contained in the Legend object.
Sub LegendMod()
Dim ChtObj As ChartObject
For Each ChtObj In ActiveSheet.ChartObjects
ChtObj.Chart.HasLegend = True
With ChtObj.Chart.Legend.Font
.Name = “Arial”
.FontStyle = “Bold”
.Size = 8
End With
Next ChtObj
End Sub
Applying chart formatting
This example applies several different formatting types to the specified chart (in this case, Chart 1 on the
active sheet).
Sub ChartMods()
With ActiveSheet.ChartObjects(“Chart 1”).Chart
.ChartType = xlArea
.ChartArea.Font.Name = “Arial”
.ChartArea.Font.FontStyle = “Regular”
.ChartArea.Font.Size = 9
.PlotArea.Interior.ColorIndex = 6
.Axes(xlValue).TickLabels.Font.Bold = True
.Axes(xlCategory).TickLabels.Font.Bold = True
End With
End Sub
One way to learn about these properties is to record a macro while you apply various changes to a chart.
VBA Speed Tips
VBA is fast, but it’s often not fast enough. This section presents programming examples that you can use to
help speed your macros.
766