在VBA中绘制图形上的点

是通过使用绘图工具和相关函数来实现的。VBA是Visual Basic for Applications的缩写，是一种用于编写宏和自定义功能的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和PowerPoint。

要在VBA中绘制图形上的点，可以使用以下步骤：

1. 打开VBA编辑器：在Excel中，按下Alt + F11键打开VBA编辑器。
2. 插入模块：在VBA编辑器中，选择插入菜单，然后选择模块。这将创建一个新的代码模块。
3. 编写绘制点的代码：在新的代码模块中，编写绘制点的代码。以下是一个简单的示例代码，用于在Excel工作表上绘制一个红色的点：

Sub DrawPoint()
    Dim ws As Worksheet
    Dim shp As Shape
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名称
    
    '创建一个椭圆形状
    Set shp = ws.Shapes.AddShape(msoShapeOval, 100, 100, 10, 10)
    
    '设置椭圆形状的填充颜色为红色
    shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

1. 运行代码：按下F5键或点击运行菜单中的运行按钮来执行代码。这将在指定的工作表上绘制一个红色的点。

上述代码中，我们首先通过Set ws = ThisWorkbook.Worksheets("Sheet1")将工作表对象赋值给变量ws，其中"Sheet1"是要绘制点的工作表名称，你可以根据实际情况进行修改。

然后，我们使用ws.Shapes.AddShape(msoShapeOval, 100, 100, 10, 10)创建一个椭圆形状，并将其赋值给变量shp。这里的参数分别表示椭圆形状的类型（msoShapeOval）、左上角的x坐标、左上角的y坐标、宽度和高度。你可以根据需要调整这些参数来绘制不同形状和大小的点。

最后，我们使用shp.Fill.ForeColor.RGB = RGB(255, 0, 0)将椭圆形状的填充颜色设置为红色。你可以根据需要更改颜色值。