參考編程添加的圖表

Question

我使用下面的代碼插入圖表。我現在如何參考上述圖表？我明白我應該使用ChartObject，但我該如何設置？

更具體地說，我想將圖表分配給一個變量，但我不確定如何執行此操作。我曾嘗試過：

set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175) 

但無濟於事。

Sub InsertInfection(rngToPrint As Range, lngTopLeft As String, BottomLeft As String) 
    Dim strRange As String 
    Dim rngChart As Range 
    Dim myChart As ChartObject 

    lngStartRow = Sheets(rngToPrint.Worksheet.Name).Range(lngTopLeft).Row 
    lngEndRow = Sheets(rngToPrint.Worksheet.Name).Range(BottomLeft).Row 

    Sheets(rngToPrint.Worksheet.Name).Activate 
    Sheets(rngToPrint.Worksheet.Name).Range("$A$" & CStr(lngStartRow) & ":$D$" & CStr(lngEndRow)).Select 

    ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175).Select 

End Sub 

Answer 1

像這樣

Dim myChart as Chart 
set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175).Chart 

如果您需要將ChartObject參考，使用myChart.Parent