使用AddChartDataYX 函数画圆

抱歉，AddChartDataYX 函数一般用于添加 XY 坐标系图表的数据点，不适合用于画圆。如果您需要画圆，可以考虑使用其他绘图函数，如 AddGraphicCircle 函数。以下是一个使用 AddGraphicCircle 函数画圆的示例代码：

' 在图表上画圆
Sub DrawCircle()
    ' 创建图表
    Dim chart As Chart
    Set chart = ActiveSheet.Shapes.AddChart2( _
        Width:=300, Height:=300, Left:=10, Top:=10).Chart
    
    ' 添加圆形
    Dim circle As Shape
    Set circle = chart.Shapes.AddShape(msoShapeOval, 50, 50, 200, 200)
    circle.Line.Weight = 2 ' 设置线条粗细
    circle.Line.ForeColor.RGB = RGB(255, 0, 0) ' 设置线条颜色
    circle.Fill.Visible = msoFalse ' 不填充颜色
    
    ' 设置图表的坐标轴
    chart.Axes(xlCategory).Delete ' 删除默认的 X 轴
    chart.Axes(xlValue).Delete ' 删除默认的 Y 轴
    
    ' 隐藏图表的边框和背景
    chart.ChartArea.Border.LineStyle = xlNone
    chart.PlotArea.Interior.ColorIndex = xlNone
End Sub

该代码使用了 AddChart2 函数创建一个 300x300 的图表，然后使用 AddShape 函数画了一个圆形，并设置了其线条粗细和颜色。最后，删除了默认的坐标轴，隐藏了图表的边框和背景。您可以根据需要修改代码中的参数来调整圆形的位置、大小和线条样式。