Question

大家好，可以提供帮助。

我有两列。代码如下。我所做的只是在宏中绘图。首先，当我在录制时选择列时，我得到一行的正常图形。 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

Answer 1

我想你想要的是这个吗？

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

Excel宏问题

1 个答案: