在VBA中未識別爲Excel圖表的Excel圖表

Question

我正在嘗試在VBA中添加圖表，但在我的工作簿中它將圖表識別爲工作表。如何將Sheet2保存爲VBA可識別的圖表？

Answer 1

你說，「但是在我的工作簿中，它正在將我的圖表識別爲一張表格」。您可能會對Excel中兩種常見類型的圖表產生一些混淆：分別位於單獨圖表上的圖表和嵌入常規工作表中的圖表對象。如果您將某些數據放入名爲「Sheet1」的Worksheet的A列和B列中，則下面的代碼將在該工作表中創建一個圖表對象，然後將其移至其自己的Chart工作表，然後再將其移回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