Visio VBA绘图：如何将线条起点改为自定义X,Y坐标？

在Visio里，你可以直接通过Shape对象的属性指定线条的固定坐标起点，不会随页面形状变化而偏移，具体实现方式如下：

直接创建带固定坐标的线条 #

使用DrawLine方法创建线条时，直接传入起点和终点的X、Y坐标即可，坐标基于Visio页面的固定坐标系（原点在页面左下角，X轴向右，Y轴向上，默认单位为英寸）：

Sub DrawFixedLine()
    Dim vsoPage As Visio.Page
    Dim vsoLine As Visio.Shape
    
    ' 获取当前活动页面
    Set vsoPage = ActivePage
    
    ' 绘制起点(1,1)、终点(4,3)的直线
    Set vsoLine = vsoPage.DrawLine(1, 1, 4, 3)
End Sub

修改已有线条的起点坐标 #

如果线条已经创建，可通过CellsU属性修改起点的X、Y坐标：

Sub ModifyLineStartPoint()
    Dim vsoLine As Visio.Shape
    
    ' 获取页面上的第一条线条（可根据实际情况调整选择方式）
    Set vsoLine = ActivePage.Shapes(1)
    
    ' 设置起点X坐标为2，Y坐标为1.5
    vsoLine.CellsU("BeginX").FormulaU = "2"
    vsoLine.CellsU("BeginY").FormulaU = "1.5"
End Sub

基于页面形状定位线条起点（类似Excel单元格逻辑） #

如果需要像Excel中基于单元格位置那样，以某个形状的位置为基准设置起点，可以获取目标形状的中心坐标（PinX、PinY）来计算：

Sub DrawLineFromShapePosition()
    Dim vsoPage As Visio.Page
    Dim vsoTargetShape As Visio.Shape
    Dim vsoLine As Visio.Shape
    Dim startX As Double, startY As Double
    
    Set vsoPage = ActivePage
    ' 定位目标形状（这里以形状名称"TargetShape"为例）
    Set vsoTargetShape = vsoPage.Shapes("TargetShape")
    
    ' 获取形状中心的坐标值（内部单位，默认英寸）
    startX = vsoTargetShape.CellsU("PinX").ResultIU
    startY = vsoTargetShape.CellsU("PinY").ResultIU
    
    ' 绘制从形状中心到(5,4)的线条
    Set vsoLine = vsoPage.DrawLine(startX, startY, 5, 4)
End Sub

说明：

• 若需要切换单位，可在FormulaU中指定，比如"3 cm"表示3厘米；
• ResultIU返回的是Visio内部单位值（通常为英寸），若要获取指定单位的数值，可使用Result("cm")这样的写法。

内容的提问来源于stack exchange，提问作者ilker