Visio中能否以标尺为参照定位形状来提取时间线活动数据？

这个方案完全可实现，无需依赖易偏移的PinX/PinY参数，通过Visio原生的形状边界属性和时间线坐标映射规则即可完成需求，具体操作流程如下：

核心操作步骤 #

• 第一步：校准时间线标尺的坐标-日期映射
  筛选所有属于顶部「标题」时间线的方框，按水平坐标从小到大排序，依次为每个方框绑定对应的起始、结束日期（如12个方框对应自然年的1-12月，可根据实际规则自定义映射逻辑），记录每个方框的左边界坐标、右边界坐标，以及时间线整体的Y轴范围，用于后续筛选下方的活动形状。
• 第二步：提取活动形状的精确边界
  筛选所有Y轴范围落在时间线下方的形状，直接调用Visio形状的BoundingBox属性获取形状的上下左右边界值，该属性返回的是形状实际显示的外接矩形坐标，不受旋转中心偏移、多次复制粘贴操作的影响，定位精度远高于PinX/PinY。
• 第三步：映射活动对应日期
  用活动形状的左边界坐标匹配时间线标尺的坐标刻度，计算得到对应开始日期；用活动形状的右边界坐标匹配得到结束日期，再提取Shape.Text属性即可拿到活动的文本内容。

特殊场景适配 #

如果绘图中存在旋转过的活动形状，调用BoundingBox方法时传入visBBoxExtents参数，即可获取旋转后的实际显示边界，避免坐标计算偏差。

核心代码示例（VBA） #

' 读取形状左右边界坐标（默认单位为英寸，可根据需求转换为其他单位）
Dim leftEdge As Double, rightEdge As Double
targetShape.BoundingBox visBBoxLeft, False, leftEdge
targetShape.BoundingBox visBBoxRight, False, rightEdge

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