如何使用vba使用两个工作表生成图形？

Question

我在excel中有两个工作表。 我想用vba绘制带有两个工作表数据的图形。 请有人帮帮我

Range("G7:G11,A7:A11").Select
Range("A7").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData _  
    Source:=Range("Sheet1!$G$7:$G$11,Sheet1!$A$7:$A$11,sheet2!$D$4:$D$303,sheet2!$C$4:$C$303")

Answer 1

你需要零碎地做这件事。创建没有系列的图表，然后逐个添加系列（将其放入循环中）：

With ActiveChart.SeriesCollection
    With .NewSeries
        .Values = {some range reference}
        .XValues = {some range reference}
        .Name = {range reference or string}
    End With
End With

范围可以分别位于不同的工作表上，但不能在多个工作表之间拆分范围。因此，例如，系列的X和Y值可以从不同的工作表中获取，但所有X值必须来自一个工作表，并且所有Y值必须来自一个工作表，但不一定与X值相同。