添加圖表在Excel（VBA）到工作表失敗

Question

我有以下非常簡單的代碼然而其與錯誤91失敗

Dim ws As Worksheet 
Dim ShapeRef As Shape 
Set ws = Sheets("DatenFilledChart") 
ShapeRef = ws.Shapes.AddChart() 

：變量沒有定義。

我不明白爲什麼會失敗。

Answer 1

A Shape是一個對象，因此您需要使用Set，就像您爲Sheets對象所做的那樣。雖然這是運行時錯誤'91'，但錯誤描述應該是'對象變量或塊變量未設置'。

無論如何，請嘗試設置像這樣的對象：Set ShapeRef = ws.Shapes.AddChart()。

Answer 2

是否有什麼原因需要添加此圖表作爲圖形集合的成員？如果您需要的圖表工作，再添變數

''Create a chart object (size/dimensions may be overridden or changed later in your code) 
Set ShapeRef = ws.ChartObjects.Add(Left:=chtLeft, Top:=chtTop, Width:=740, Height:=300) 

：

Dim cht as Chart 
Set cht = ShapeRef.Chart 

如果不是這樣，如果你需要使用ChartObject工作，做到這一點