[VBA]設定ワークシートを参照しているグラフの位置

Question

ワークシートとして既に設定した変数にグラフを埋め込もうとしました。 が正しく実行されませんでした。私はその声明が正しいかどうか分からない。

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) 

私は最後にエラーが発生していますが、それに関する提案はありますか？

ありがとうございました！以下のように

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