使用VBA Excel创建散点图

Question

这是我的VBA代码，用于在Excel中创建散点图：

Sub createmychart()
    Dim Chart1 As Chart
    Set Chart1 = Charts.Add
    With Chart1
        .SetSourceData Source:=Sheets("usd_download data").Range("A2:B26001")
        .ChartType = xlXYScatter
    End With
End Sub

但是，它最终像这样：

但我想有一个像这样的图：

我尝试了很多，但不知道该怎么做。

Answer 1

在不知道数据是什么样的情况下，您的代码似乎只有两个数据系列，而只需要一个。

Sub createmychart()
    Dim Chart1 As Chart
    Set Chart1 = Charts.Add
    With Chart1
        .ChartType = xlXYScatter
        .SeriesCollection.NewSeries
        'Change to what your series should be called
        .SeriesCollection(1).Name = "=""Values"""
        .SeriesCollection(1).XValues = "=usd_download data!$A$2:$A$26001"
        .SeriesCollection(1).Values = "=usd_download data!$B$2:$B$26001"
    End With
End Sub