Расположение диаграммы со ссылкой на таблицы заданий

Я попытался встроить диаграмму в переменную, которую я уже установил в качестве листа. но он не мог работать должным образом. Я не уверен, было ли утверждение правильным.

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) 

Я получаю сообщение об ошибке на последнем, любые предложения по этому поводу?

Спасибо!

использование

 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 
Давайте будем гением компьютера.