Microsoft Visio Stencil（VSSXファイル）を扱いたい

Question

Visioファイル（VSDX）ではなく、そのテンプレートである（VSSX）をVBAから扱いたいのですが、
ネット上では、１件もVSSX with VBAの情報を見つけられていません。

例えばVSDXファイルの場合、ファイル中の全オブジェクトにアクセスするには以下のコードで書けます

    Set vsoDoc = vsoApp.Documents.Item(1)

    For Each vsoPage In vsoDoc.Pages
        For Each vsoShape In vsoPage.Shapes
        
               何らかの処理
          
        Next
    Next

VSSXファイルの場合、同様の記載をしてもvso.Shapesが空で、
Msgbox "test"が実行されることはありません。

    Set vssxDoc = vsoApp.Documents.Item(1)

    For Each vsoPage In vssxDoc.Pages
        For Each vsoShape In vsoPage.Shapes
        
               msgbox "test"
          
        Next
    Next

そもそもVSSXファイルはVBAでは扱えないのでしょうか？

Answer 1

ネット上では、１件もVSSX with VBAの情報を見つけられていません。

確かに、Visioの情報は少ないですよね。

https://docs.microsoft.com/en-us/office/vba/api/visio.document.masters
https://docs.microsoft.com/en-us/office/vba/api/Visio.Masters
https://docs.microsoft.com/en-us/office/vba/api/visio.master

ちょっと手元にVisioがないのですが、
ステンシルにShapeという考えがあったかな？
と思っています。

Visioを初めて触った時にステンシルの概念がとっつきづらかったのですが、
ステンシルはマスターシェイプとかいうものがあった気がします。

Masters,Masterオブジェクトあたりを見てみたらどうですかね？

---

そのテンプレートである（VSSX）

.

.vstx (Visio テンプレート)
https://docs.microsoft.com/ja-jp/office/client-developer/visio/introduction-to-the-visio-file-formatvsdx

テンプレートというと、Visioテンプレート(.vstx)のことかな？と思ってしまいました・・

Comments

[jckkvs]

確かに、Masterあたりのオブジェクトを見ると良さそうですね。　検討してみます。

[jckkvs]

ようやく検討してみました。
仰る通り、Masterオブジェクトでした。

あるmastershape(v1.0.vssx)で作成されたvisioファイルを次のバージョンのマスターシェイプ（v1.1.vssx）に自動で更新する方法を調べています。

やりたいことは、vsdxのMasterをvssxのMasterに置き換えたいです。　

vssx_Master = vssxMaster
vsdx_shape.master = vssx_Master

というコードで、マスターシェイプの更新が出来るかと考えたのですが、できませんでした。
あるシェイプのMasterを別のMasterに置き換える方法はあるでしょうか

[退会済みユーザー]

しばらく前の回答で、もう放置かと思っていました・・

> あるmastershape(v1.0.vssx)で作成されたvisioファイルを次のバージョンのマスターシェイプ（v1.1.vssx）に自動で更新する方法を調べています。
> あるシェイプのMasterを別のMasterに置き換える方法はあるでしょうか

すでに図面に描画されている図形は古いため、ステンシルファイル(v1.1.vssx)内にある新しいマスターシェイプの図形で置き換えたいということですかね。

---

https://support.microsoft.com/ja-jp/office/図形を別の図形に置き換える-176a89ea-9638-4d35-b04b-6eddd0850016

Visioを利用する側としては、私自身、素人ですので・・
できないのかな？と思っていたらリンクのページを見つけました。

マクロからではなく、Visioのアプリケーションを操作して確認してみたところ、図形の置き換えができたようでした。

マクロから操作する場合は、Excelの「マクロの記録」と同じようにマクロが記録できますので、そちらからご自身で試してみると、今後のためにも良いかなと思いました。
Visioの開発タブ(マクロの記録)は次のリンクも見てみてください。
https://support.microsoft.com/ja-jp/topic/-開発-タブを表示する-e1192344-5e56-4d45-931b-e5fd9bea2d45

(手元でマクロの記録をしたところ、ShapeクラスのReplaceShapeメソッドを使う感じのようでした)
https://docs.microsoft.com/en-us/office/vba/api/visio.shape.replaceshape

[jckkvs]

ありがとうございます。　ReplaceShapeメソッドで問題なく変換できました。
ただ、「ドロップ時に名前で同期する」（MatchByName）のチェックを外す必要がありました。
＊外さないと、ReplaceShapeより同期が優先されて変更されない。