vba - 使用 VBA Excel 创建散点图

Question

这是我在 Excel 中创建散点图的 VBA 代码:

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