WORDの図形をPNG形式で保存する

WORDの図形をPNG形式保存できないかなと調べてみました。
似たようなことを実施していらっしゃる方がおりました。

今回の環境は WORD2019 のためか、InlineShapes ではなく Shapes に画像ファイルが入っていました。
なので以下の1部を修正するだけで動作しました。

'図をコピーしてペイントで保存
Dim shp As Variant
For Each shp In wdDoc.Shapes

WORDから図形を取り出すのは簡単ですが保存するのってとても面倒なのですね。
図形を入れるのは簡単なのに・・・。