☆WORD[図の書式設定]のリセット方法

質問

WORDにコピー張付けした画像(例えばインストール画面を次々コピー張付け)を、適当なサイズに変更したが元のサイズに戻したい。
手作業ではなくVBAマクロで一括返還したい…幸いにも同課題のExcel編は
「QNo.5660996」回答者：watabe007さんが解決してくれています。
WORDも適用しようと頑張ったのですがソースコードが異なる模様、
悔しいが私には難しくて解決できませんでした。

手動なら画像をマウス右クリックして、
[サイズとプロパティ]⇒[サイズ]⇒[原型のサイズ]⇒[リセット]の手順ですが、
VBAマクロで実行するにはどの様な記述をすればよいか教えて下さい。
宜しくお願いします。

参考
一括で50％に縮小するソースコードは次の記述で成功しています。
私が正しいと思っているだけかも知れません。
'----------------------------------------------
Option Explicit

Sub 縮小50()
Dim s
For Each s In ActiveDocument.Shapes
s.Width = s.Width * 0.5
s.Height = s.Height * 0.5
Next
For Each s In ActiveDocument.InlineShapes
s.Width = s.Width * 0.5
s.Height = s.Height * 0.5
Next
End Sub
'----------------------------------------------
以上

回答No.1

watabe007 · ベストアンサー

参考に
For Each s In ActiveDocument.InlineShapes
　　s.ScaleHeight = 100
　　s.ScaleWidth = 100
Next

お礼

watabe007さん、早々の回答どうも有り難うございました。
この度は重ねがさね本当にお世話になりました。
今後とも宜しくお願いいたします。

補足

掲題の件、試行してみました⇒結果OKでした。
作業手順用などに張付けた画像を一括処理する便利ツールも完成しました。
先ずはWORD用としてNormalプロジェクトへ下記を登録しました。
他の方にも共有して頂けるものと思いソースコードを提示しておきます。
下記は何れも問題なく動作しています。

Option Explicit

Sub サイズ100percent()
Dim s
For Each s In ActiveDocument.InlineShapes
s.ScaleHeight = 100
s.ScaleWidth = 100
Next
End Sub

Sub 拡大x2()
Dim s
For Each s In ActiveDocument.InlineShapes
s.Width = s.Width * 2
s.Height = s.Height * 2
Next
End Sub

Sub サイズ050percent()
Dim s
For Each s In ActiveDocument.InlineShapes
s.ScaleHeight = 50
s.ScaleWidth = 50
Next
End Sub

Sub 縮小x2()
Dim s
For Each s In ActiveDocument.InlineShapes
s.Width = s.Width * 0.5
s.Height = s.Height * 0.5
Next
End Sub

以上