建立一個空圖表

絕大多數圖表程式碼的起點是建立一個空的 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

結果圖表

StackOverflow 文件