在VBA中向现有图表添加X-Y图

Sub AddXYChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rng As Range
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    
    ' 设置目标图表位置
    Set rng = ws.Range("A1:B10") ' 替换为实际的数据范围
    
    ' 添加图表对象
    Set cht = ws.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height)
    
    ' 设置图表类型为散点图
    cht.Chart.ChartType = xlXYScatter
    
    ' 设置图表数据源
    cht.Chart.SetSourceData Source:=rng
    
    ' 可以根据需要进行其他图表属性的设置
    
End Sub