• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:☆WORD[図の書式設定]のリセット方法)

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

このQ&Aのポイント
  • WORDにコピー張付けした画像を元のサイズに戻したい場合、手動での方法とVBAマクロでの方法があります。
  • 手動の場合は、画像をマウス右クリックして[サイズとプロパティ]⇒[サイズ]⇒[原型のサイズ]⇒[リセット]の手順でリセットします。
  • 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

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

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

noname#107515
質問者

お礼

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

noname#107515
質問者

補足

掲題の件、試行してみました⇒結果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 以上

関連するQ&A

専門家に質問してみよう