Excel 围绕图表中的一个点画圆圈

Excel 围绕图表中的一个点画圆圈,excel,geometry,Excel,Geometry,我有一个(x,y)坐标,它将被绘制在散点图中。我需要一个半径为R的圆,围绕绘制的点绘制 感谢和问候, Prabhu.C这是一个可以让你开始学习的“赤裸裸”的例子。你将需要玩缩放,单位和定位等,以适应您的环境 这将画一个没有填充的圆和一个红色的圆周,用一条注释掉的线给它一个实心填充(更改。msoTrue可见) 提供更多关于您的数据和图表的信息,并发布您迄今为止尝试过的内容,包括vba代码(如果有)。感谢您的回复。我的工作是收集不同的点(x,y)作为坐标。请考虑点的坐标。对于eg,我有一个点(65

我有一个(x,y)坐标,它将被绘制在散点图中。我需要一个半径为R的圆,围绕绘制的点绘制

感谢和问候,
Prabhu.C

这是一个可以让你开始学习的“赤裸裸”的例子。你将需要玩缩放,单位和定位等,以适应您的环境

这将画一个没有填充的圆和一个红色的圆周,用一条注释掉的线给它一个实心填充(更改。msoTrue可见)


提供更多关于您的数据和图表的信息,并发布您迄今为止尝试过的内容,包括vba代码(如果有)。感谢您的回复。我的工作是收集不同的点(x,y)作为坐标。请考虑点的坐标。对于eg,我有一个点(6527927911523),r值为450m。现在,上面的点在xy散点图中绘制。我需要一个半径为450的圆。
Sub drawCircle()
Dim ws As Worksheet
Dim cLeft As Long, cTop As Long
Dim cX As Long, cY As Long, cDia As Long
Dim c1 As Shape

Set ws = Sheets("Sheet1")
cX = Range("A2")
cY = Range("B2")
cDia = Range("C2").Value * 2

cLeft = cX - (cDia / 2)
cTop = cY - (cDia / 2)

    With ws
        Set c1 = .Shapes.AddShape(msoShapeOval, cLeft, cTop, cDia, cDia)
            With c1
                .Fill.Visible = msoFalse
                .Line.Weight = 2
                .Line.ForeColor.RGB = RGB(255, 0, 0)
                '.Fill.ForeColor.RGB = RGB(255, 0, 0)  'eg Red fill
            End With
    End With

End Sub