Visioの図形データに格納されたデータをテキストに出力

Question

お世話になります。

Visio professional 2016を使用しています。

VisioにあるVisual Basicで図形データのデータをテキストファイルに出力したいのですが、やり方がわかりません。

以下で図形データの名前は出力できました。

     For i = 1 To iShapeCount

          'Get the i'th shape

          Set shpObj = shpsObj(i)

          'Get the shape name

          OrderInfo(0, i - 1) = shpObj.Name

              Print #fileNo, OrderInfo(0, i - 1)

　　 Next

シェイプシートにあるShape DataのProp.Row_1のLabelとValueを出力させたいです。

よろしくお願い致します。

Answer 1

ff_bon さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Visual Basic で図形データをテキストに出力したいのですね。

調べたのですが、ご案内できそうな情報が見つかりませんでした...。

また、マイクロソフト コミュニティは一般利用向けのフォーラムのため、Visual Basic 関連についてはコメントが寄せられにくいかもしれません。

この内容については [MSDN フォーラム] に質問を投稿して、情報を集められてはいかがでしょうか。

よろしければご活用くださいね。

Answer 2

Microsoft Support　南谷一様

ご回答ありがとうございます。

参考になりました。