在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