VISIO VB 获取 geometry

在Microsoft Visio中，VB (Visual Basic for Applications) 是一种脚本语言，可以用于自动化和扩展Visio的功能。如果你想要获取某个形状（Shape）的几何信息，如位置、大小或边框等，你可以通过访问其Geometry属性来实现。

例如，假设你有一个名为"shape1"的形状，你可以使用下面的VB代码：

Dim shape As Shape
Set shape = ThisDrawing.Pages("页1").Shapes("形状名称") '替换"页1"和"形状名称"为实际页名和形状ID

Dim geometryInfo As Object '声明将存储几何信息的对象
geometryInfo = shape.Geometry '获取形状的几何对象

'现在你可以访问其中的具体属性，比如矩形的宽度和高度：
Dim width As Double
width = geometryInfo.Width

Dim height As Double
height = geometryInfo.Height

在这个例子中，`Width` 和 `Height` 就是你可以从`geometryInfo`中得到的几何属性。