添加图表在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工作，做到这一点