4523756273

224
Part III: Programming Concepts
When you click an embedded chart, Excel actually selects an object inside the
ChartObject object. You can select the ChartObject itself by pressing Ctrl
while clicking the embedded chart.
Modifying the chart type
Here’s a confusing statement for you: A ChartObject object acts as a container
for a Chart object. Read that a few times, and it might actually make
sense.
To modify a chart with VBA, you don’t have to activate the chart. Rather, the
Chart method can return the chart contained in the ChartObject. Are you thoroughly
confused yet? The following two procedures have the same effect —
they change the chart named Chart 1 to an area chart. The first procedure
activates the chart first and then works with the active chart. The second
procedure doesn’t activate the chart. Rather it uses the Chart property to
return the Chart object contained in the ChartObject object.
Sub ModifyChart1()
ActiveSheet.ChartObjects(“Chart 1”).Activate
ActiveChart.Type = xlArea
End Sub
Sub ModifyChart2()
ActiveSheet.ChartObjects(“Chart 1”) _
.Chart.Type = xlArea
End Sub
Looping through the
ChartObjects collection
This example changes the chart type of every embedded chart on the active
sheet. The procedure uses a For-Next loop to cycle through each object in
the ChartObjects collection, access the Chart object in each, and change its
Type property.
Sub ChartType()
Dim cht As ChartObject
For Each cht In ActiveSheet.ChartObjects
cht.Chart.Type = xlArea
Next cht
End Sub