將圖表標題存儲在一個數組中

Question

我試圖將圖表標題存儲在一個表單中。我有以下的代碼，但它似乎不工作：

ReDim currentArray(1 To .ChartObjects.Count/3) 
For i = 1 To .ChartObjects.Count Step 3 
    .ChartObjects(i).chart.HasTitle = True 
    title_name = .ChartObjects(i).chart.ChartTitle.Text 
    If i = 1 Then 
     Set currentArray(i) = title_name 
    Else 
     Set currentArray((i + 2)/3) = title_name 
    End If 
Next 

它讓我運行時錯誤，需要在第6行「424」消息說，對象，我嘗試圖表TITLE_NAME存儲到currentArray。還有什麼其他方式來存儲圖表名稱而不是圖表本身？

Answer 1

例如見What does the keyword Set actually do in VBA?

的必選對象（424）錯誤意味着賦值語句的右側沒有返回一個對象，當一個對象被預期/由分配的左側要求聲明。

基本上，在處理對象時只使用Set關鍵字。每次刪除Set，它應該工作正常。