参考设定工作表的图表位置

我试图将图表embedded到已经设置为工作表的variables中。 但无法正常运行。 我不确定这个陈述是否正确。

Public DataSheet As Worksheet Public Graph As Chart Public Cat_3, Cat_4, Cat_5 As Range Set DataSheet = Worksheets("DataSheets") Set Cat_3 = DataSheet.Range("c2:c16") Set Graph = Charts.Add Graph.SeriesCollection.NewSeries Graph.SeriesCollection(1).Values = Cat_3 Set Graph = Graph.Location(Where:=xlLocationAsObject, Name:=DataSheet) 

我在最后得到一个错误，对此有什么build议？

谢谢！

Answer 1

使用

 Graph.Location Where:=xlLocationAsObject, Name:=DataSheet.Name 

此外，您可能想要使用更健壮的语法，如下所示：

 Set Graph = Charts.Add With Graph .SeriesCollection.NewSeries .SeriesCollection(1).Values = Cat_3 .Location Where:=xlLocationAsObject, Name:=DataSheet.Name End With