如何激活和操作图表工作表

时间:2019-04-01 18:47:28

标签: excel vba

我在Excel中使用图表表来绘制一些数据。 似乎图表表和嵌入式图表的操作图表及其源范围的命令有所不同。我不确定如何根据可变数量的数据以及因此可变数量的系列为图表表创建新系列。

我有一张从B列开始的数据表,并且可以连续许多列。我正在尝试为每两列向此图表表添加一个新系列。 B和C列分别与X和Y值相关,并且每两列都有一个新的数据集。

lastcol = Worksheets("Force").Cells(1, Columns.Count).End(xlToLeft).Column

For i = 3 To lastcol Step 2
    lrownum = ThisWorkbook.Worksheets("Force").Cells(Rows.Count, i).End(xlUp).Row


    With Sheets("ForceGraph").ChartObjects("Chart78").Chart
       With .SeriesCollection.NewSeries
            .XValues = Worksheets("Force").Range(Cells(1, i - 1), Cells(lrownum, i - 1))
            .Values = Worksheets("Force").Range(Cells(1, i), Cells(lrownum, i))
            .Name = Worksheets("Force").Range(Cells(1, i)).Value
        End With
    End With


Next i

上述代码出现错误。我也尝试过

 Chart78.Activate
 ActiveChart.ChartType = xlXYScatterSmooth
 ActiveChart.SetSourceData Source:=Sheets("Force").Range("B1:M1500")

确实填充了图表,但似乎不允许使用可变数据集,并且始终错误地弄乱了X和Y值。

我可以使用某种组合来正确填充图表吗?

谢谢

0 个答案:

没有答案