4、核心函数

　　 该函数设置图表对象的一些默认属性值。

Private Sub SetChartWithDataProps()  With oExcelChart    .HasLegend = True    .Legend.Position = xlLegendPositionTop    .WallsAndGridlines2D = True    .PlotArea.Height = 250    .PlotArea.Width = 600  End WithEnd Sub

　　 该函数由AddDataSeries()方法调用且只调用一次，调用时间在第一批数据加入图表之后。函数的作用是设置一些默认的属性值，这些属性只有在数据加入图表之后才可以修改。

　　 程序首先启用图表中的图例（legend），并将它放到图表的上方。图例用于显示图表中数据系列的名字，如在本例中图表显示的是Factory 1的产量，则图例显示带有颜色指示的“Factory 1”。三维图表中的网格线可以设置成二维，这里设置WallsAndGridlines2D为True启用该功能。

　　 程序接下来设置图形区的大小，这里的大小是随意确定的，通过SetChartOptions()方法可以修改这些值。

　　 请注意图形区和图表区的不同及其限制。图表区包围图形区，代表数据的图形画在图形区内。由于图表区是只读的，修改图形区可能会使图形看起来变小，但图表区并不会受影响，因此图形的大小仍会保持不变。