如何用代码在visio中画出一条线

下面是用VBA代码在Visio中画出一条线的示例：

1. 打开Visio软件，按下“Alt+F11”进入VBE界面，新建一个模块（Module）。

2. 添加以下代码到模块中：

Sub DrawLine()
    Dim currentPage As Visio.Page
    Set currentPage = ActivePage
    
    Dim startShape As Visio.Shape
    Set startShape = currentPage.Drop(currentPage.Application.Documents("BASIC_U.VSS").Masters("Rectangle"), 2.0, 2.0)
    
    Dim endShape As Visio.Shape
    Set endShape = currentPage.Drop(currentPage.Application.Documents("BASIC_U.VSS").Masters("Rectangle"), 8.0, 6.0)
    
    Dim connectorShape As Visio.Shape
    Set connectorShape = currentPage.DrawLine(startShape.Cells("PinX"), startShape.Cells("PinY"), endShape.Cells("PinX"), endShape.Cells("PinY"))
    
    connectorShape.Cells("ConnectorType").Formula = "2"
End Sub

3. 运行该宏，将会在当前页面上画出一个连接起始在(2,2)，结束在(8,6)的两个矩形，中间连接一条线。

其中，`Drop`方法用来在页面上放置一个形状，需要指定形状模板（Master）、X坐标和Y坐标。`DrawLine`方法用来绘制线条，需要指定起始和终止坐标。

最后，将连接器类型设置为“2”，即为直线连接器。