vba - 如何使用另一个字段中的形状 ID 来定义 beginX

Question

背景：新手用户和 VBA 程序员 - 请温柔一点。

场景：使用 Visio (2010) 直线连接器；目前 1-D Endpoints.BeginX 如下：

=PAR(PNT(Milestone.40!Connections.X1,Milestone.40!Connections.Y1))

我所拥有的：一个名为 BeginItem 的相同形状的数据字段，其中包含 Milestone.40 的 Visio ID（例如 87）！以上。

我需要知道的：如果可能，如何将 1-D Endpoints.BeginX 中的公式更改为：

=PAR(PNT(BeginItemValue!Connections.X1,BeginItemValue!Connections.Y1))

如果不可能，是否有其他方法可以做到这一点？

谢谢！

score 1 · Accepted Answer

谢谢大家的帮助。所有建议的结合使我找到了另一种解决方案。

我没有尝试引用 Shapesheet 中包含 BeginItemValue 的字段，而是通过连接各个部分来构建整个字符串（在 VBA 中），然后用它更新 BeginX 值。

shpObj.Cells("BeginX").Formula = "=PAR(PNT(" & BeginItemValue & "!Connections.X1," & BeginItemValue & "!Connections.Y1))"

效果很好，尽管我确信有更简单的方法可以做到这一点。

1 回答 1