當利用 VBA 新增一 ChartObject，如下：

Dim chobj As ChartObject
Set chobj = Worksheets("Sheet1").ChartObjects.Add(50, 40, 400, 200)
chobj.name = "chart1"

則該 Excel 工作表關閉後，該 ChartObject 仍然存在。可以想像工作表關閉後，在工作表內所包含的工作表 (Worksheet)、圖表等物件生命仍存在 (除非物件被 Destroy)，它只是被永續冬眠 (hibernate)至檔案資料庫內，待開啟檔案後，這些物件會再次的活化 (Activation)。

問題：如果手動刪除掉該 ChartObject，該如何在 VBA 程式內判斷已不存在，而需要自動再新增同名的 ChartObject？

解決方案：程序內需要宣告「On Error」陳述，然後利用任一陳述式(statement，如 If or With) ，可直接參考 (reference)到該 ChartObject。若不存在，則該陳述會發生錯誤，然後再判斷該錯誤代碼，在錯誤區塊 (block)內新增同名的 ChartObject。

說明：

閱讀全文 »