ExcelグラフがVBAでグラフとして認識されない

Question

VBAでグラフを追加しようとしていますが、ワークブックでチャートをシートとして認識しています。 Sheet2をVBAで認識可能なグラフとして保存するにはどうすればよいですか？

Answer 1

「私のワークブックでは、自分のチャートをシートとして認識しています。 Excelでは、2つの一般的な種類のグラフ（独自の別のシートにあるグラフ）と、通常のワークシートに埋め込まれたグラフオブジェクト（Chart objects）に混乱が生じることがあります。 "Sheet1"という名前のワークシートの列Aと列Bにいくつかのデータを配置すると、下のコードはそのシート内のチャートオブジェクトを作成し、それを自身のチャートシートに移動してから再びSheet1に戻します。これで問題が解決されない場合は、詳細を記入してください。

Option Explicit 
Sub chartTypes() 
Dim r As Range, chObj As ChartObject, sh As Worksheet 
Set sh = Worksheets("Sheet1") 
Set r = sh.UsedRange 
Set chObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225) 
    With chObj 
    .Chart.ChartType = xlXYScatterLines 
    .Chart.SetSourceData Source:=r 
    'move chart to a chart sheet 
    .Chart.Location Where:=xlLocationAsNewSheet 
    End With 
ActiveSheet.Name = "newChart" 
'move chart back to sheet 
ActiveChart.Location Where:=xlLocationAsObject, Name:=sh.Name 
End Sub