0

背景: 初心者ユーザーおよび VBA プログラマー - 優しくしてください。

シナリオ: Visio (2010) 直線コネクタを使用します。現在、1-D Endpoints.BeginX は次のとおりです。

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

私が持っているもの：Milestone.40のVisio ID（87など）を含むBeginItemと呼ばれる同じ形状のデータフィールド！その上。

知っておくべきこと: 可能であれば、1-D Endpoints.BeginX の式を次のように変更する方法:

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

不可能な場合、これを行う別の方法はありますか?

ありがとう！

4

1 に答える 1

1

すべてを助けてくれてありがとう。すべてのアドバイスを組み合わせることで、別の解決策にたどり着きました。

BeginItemValue を含むシェイプシートのフィールドを参照しようとする代わりに、パーツを連結して (VBA で) 文字列全体を作成し、それで BeginX 値を更新しました。 

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

それはうまくいきましたが、もっと簡単な方法があると確信しています。

于 2015-02-24T23:10:48.577 に答える