Visio VBA 绘制坐标为米的线

Question

我正在使用 VBA 在 Visio 中工作。有没有办法将起始点从页面角更改为x,y坐标？

当我创建宏时，它会自动将起点作为页面角，并且当页面形状改变时它也会改变。我想画一条线作为 x,y 坐标，如图所示。

Visio 中显示的坐标

我试图找到一种像 Excel 一样的方法来更改坐标，如下面的代码所示，

With Range("C5")
   BeginX = .Left
   BeginY = .Top + .Height / 2
 End With`

当然，此代码仅适用于单元格环境，但我想知道是否有办法将其更改为以 x,y 坐标而不是单元格为基础的 Visio 环境。

Answer 1

此代码最初发布于课程/从 Excel 表格绘制线条

Public Sub DrawFromEcel() Dim exApp As Excel.Application Dim i As
Integer Dim exSheet As Excel.Worksheet
    Set exApp = New Excel.Application
    exApp.Visible = False

    exApp.Workbooks.Open ("c:\Coord.xls")
    Set exSheet = exApp.ActiveWorkbook.Worksheets(1)
    
    i = 2
    Do While exSheet.Range("A" & i).Value <> ""
        Application.ActivePage.DrawLine exSheet.Range("A" & i).Value, exSheet.Range("B" & i).Value, _
                                        exSheet.Range("C" & i).Value, exSheet.Range("D" & i).Value
        
        i = i + 1
        
    Loop
    
    exApp.Quit 
End Sub