如何使用其他字段中的形状ID来定义beginX

时间:2015-02-20 02:02:36

标签: vba visio shapesheet visio-2010

背景:新手用户和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))

如果不可能,还有另一种方法吗?

谢谢!

1 个答案:

答案 0 :(得分:1)

感谢您帮助所有人。所有建议的结合使我得到了另一种解决方案。

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

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

虽然我确信有更简单的方法可以做到,但效果很好。