web-dev-qa-db-ja.com

Word：画像のサイズをパーセントで変更-マクロ

私は定期的に多くの画面キャプチャをMicrosoft Word 2007に貼り付けてから、手動で約75％にサイズ変更する必要があり、これは非常に退屈な作業になります。

画面キャプチャーはすべて異なるサイズです。

このためのマクロを作成しようとしましたが、選択した画像のサイズを特定のサイズに変更するマクロしか作成できません。また、ドキュメントウィンドウで手動でサイズを変更するか、[サイズ]ダイアログを使用して、マクロレコーダーに認識させることができません。

選択した画像のサイズを現在のサイズの75％に変更するマクロを作成することはできますか？

この質問 は私のものに似ていますが、ユーザーの要件はすべての画像を同じサイズに変更することです。任意の高さ/幅の画像のサイズを変更する必要があります。

そもそも小さいサイズで画像を貼り付けるテクニックもオープンです。

microsoft-wordimagesvbamicrosoft-word-2007macros
7
cantera25

このコードをドキュメントのVBAエディター（Alt + F11）のモジュールにコピーします。モジュールがまだない場合は、挿入メニューからモジュールを追加することを選択できます。

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

このマクロを実行するには、Alt + F8を押し、マクロのリストからPicResizeを選択して、[実行]をクリックします。毎回クリックするだけでマクロを実行したい場合は、メニューのボタンに割り当てることもできます。

8
CharlieRB