创建一个空图表

绝大多数图表代码的起点是创建一个空的 Chart。请注意，此 Chart 受默认图表模板的约束，该模板处于活动状态，实际上可能不为空（如果模板已被修改）。

ChartObject 的关键是确定它的位置。该调用的语法是 ChartObjects.Add(Left, Top, Width, Height)。创建 ChartObject 后，你可以使用其 Chart 对象来实际修改图表。ChartObject 更像是一个 Shape，可以将图表放在工作表上。

用于创建空图表的代码

Sub CreateEmptyChart()
    
    'get reference to ActiveSheet
    Dim sht As Worksheet
    Set sht = ActiveSheet
    
    'create a new ChartObject at position (0, 0) with width 400 and height 300
    Dim chtObj As ChartObject
    Set chtObj = sht.ChartObjects.Add(0, 0, 400, 300)
    
    'get refernce to chart object
    Dim cht As Chart
    Set cht = chtObj.Chart
    
    'additional code to modify the empty chart
    '...

End Sub

结果图表