0

您好任何可以提供帮助的人。

我有两列。代码如下。我所做的只是在宏中绘制图形。首先，当我在记录时选择列时，我得到一个带有一条线的普通图。X 轴指的是 B 列，Y 轴指的是 C 列。但是，一旦我完成记录并按下 crtl + o 宏就会运行，但会出现两个图表。这两列没有相互“同步”，而是分别绘制了图表。它如何从我只制作一个图表的录制宏中创建两个图表？

' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+o
'
    Range("B1:C16").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Sheet1'!$B$1:$B$16")
    ActiveChart.ChartType = xlXYScatterSmooth
4

1 回答 1

0

我猜你想要的可能是这个？

Sub Macro1()
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$B$1:$B$16"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!$C$1:$C$16"
End Sub
于 2013-10-25T04:06:52.337 回答