Excel宏問題

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