【Word】「行内」の画像をまとめてサイズ変更する方法【一括変更】

Word
記事内に広告が含まれています。

Word で文書に画像を挿入したあと、すべての画像を同じ大きさに調整したい場面があります。しかし、「まとめてサイズ変更」などで調べても、「すべての画像を選択して大きさを入力する」という方法しか見つからず、困った経験はありませんか?画像の挿入の仕方によっては複数の画像を選択できないので、この方法が使えないのです。もし、このようなことでお困りの場合は、この記事の方法をお試しください。

スポンサーリンク

文字列の折り返しが「行内」の場合は複数の画像を選択できない

Word で画像を挿入した場合、文字列の折り返しが「行内」以外であれば、Shift キーを押しながら画像を選択していけば、すべての画像を選択できます。つまり、次のような手順で画像を選択したあとに画像の大きさを入力すれば、まとめて大きさを変更できます。

ですが、文字列の折り返しが「行内」の場合は話が別。この場合の画像は複数選択できないため、この方法が使えません。だからといって、1 枚ずつ手作業でサイズを変更するのは面倒です。そこで、マクロの出番です。簡単なマクロを使えば、一発でドキュメント内の画像のサイズをまとめて変更できます。

ここでは Windows 版 Word の画面で説明しますが、Mac の Word でも利用できます。ちなみに Mac の Word(バージョン 16.93)でも動作を確認済みです。

「開発」タブを表示する(Windows のみ)

Windows 版 Word では、「開発」タブを使用します。表示されていない場合は、次の手順で有効にしてください。

まず、Word を起動したら、「ファイル」タブをクリックします。

表示された画面で「その他」→「オプション」をクリックします(ウィンドウの大きさによっては、「オプション」だけ表示されていることもあります)。

Word のオプション画面が表示されるので、「リボンのユーザー設定」をクリックします。右側のボックスの中にある「開発」にチェックをつけ、「OK」をクリックします。これで「開発」タブが表示されます。

マクロを保存する

次に画像のサイズを一括変更するマクロを保存します。

「開発」タブを開き、「Visual Basic」をクリックします。

Mac では

Mac の場合は、メニューバーで「ツール」→「マクロ」→「Visual Basic Editor」をクリックします。

Visual Basic の編集画面が表示されるので、左側のツリーで「Normal」を選択します。選択できたら「挿入」→「標準モジュール」をクリックします。

今開いている文書だけで使いたい場合は

「Normal」を選択すると、すべての Word 文書でマクロが利用できます。特定の文書だけで使用したい場合は、左側のツリーからその文書名を選んでください。

画面の右側にウィンドウが開くので、下のマクロをコピー&ペーストします。

Sub ResizeAllImages_UserInput()
    Dim shp As InlineShape
    Dim shpFloating As Shape
    Dim userWidth As String
    Dim newWidth As Single

    ' ユーザーに横幅を入力させる(キャンセル時は終了)
    userWidth = InputBox("画像の横幅をポイント(pt)単位で入力してください。(例: 150)", "画像サイズ変更")
    
    ' 入力が空白またはキャンセルされた場合は処理を中止
    If userWidth = "" Then Exit Sub
    
    ' 入力値を数値に変換
    If IsNumeric(userWidth) Then
        newWidth = CSng(userWidth)
    Else
        MsgBox "数値を入力してください。", vbExclamation, "エラー"
        Exit Sub
    End If

    ' 文書内のインライン画像(本文中の画像)を変更
    For Each shp In ActiveDocument.InlineShapes
        shp.LockAspectRatio = msoTrue ' アスペクト比を固定
        shp.Width = newWidth ' ユーザーが指定した幅
    Next shp

    ' 文書内のフローティング画像(テキストの外側の画像)を変更
    For Each shpFloating In ActiveDocument.Shapes
        shpFloating.LockAspectRatio = msoTrue ' アスペクト比を固定
        shpFloating.Width = newWidth ' ユーザーが指定した幅
    Next shpFloating

    ' 完了メッセージ
    MsgBox "すべての画像の幅を " & newWidth & " pt に変更しました!", vbInformation, "完了"
End Sub

コピペできたら、上書き保存アイコンをクリックします。

これでマクロの保存は完了です。「×」をクリックしてウィンドウを閉じます。

画像のサイズを変更する

最後にマクロを実行して画像のサイズをまとめて変更します。

「開発」タブを開き、「マクロ」をクリックします。

Mac では

Mac の場合は、「ツール」→「マクロ」→「マクロ」をクリックします。

一覧で「ResizeAllImages_UserInput」(今回のマクロ名)を選択し、「実行」をクリックします。

サイズの入力ボックスが表示されるので、画像の横幅のサイズを入力し、「OK」をクリックします。ちなみに画像の単位はポイントです。縦横のアスペクト比は保持されます。

すべての画像サイズが変更されます。「OK」をクリックします。

画像の大きさを確認してください。もし大きさを調整したいときは、同じ手順を繰り返せば別のサイズに変更できます。

クイックアクセスツールバーから実行できるようにする(Windows のみ)

Windows の場合、このマクロをクイックアクセスツールバーに追加できます。頻繁に使う場合は、追加しておくと作業効率が向上します。

Word のオプション画面を表示したら、「クイックアクセスツールバー」をクリックします。「コマンドの選択」で「マクロ」を選び、マクロ名(ResizeAllImages_UserInput)を選択して「追加」をクリックします。

マクロ名が右側の一覧に追加されたことを確認し、「OK」をクリックします。

これでマクロがクイックアクセスツールバーに追加できました。このアイコンをクリックすると、いつでもすぐにサイズ変更のマクロを実行できます。

余談:Copilot にお願いしてみた

最近、Microsoft 365 で Copilot が使えるようになったので、画像サイズの変更ができないかお願いしてみました。

しかし、次の画面の通り、ダメでした。AI もまだまだですね。

なお、Copilot でできることについては、下の記事でもまとめているので、併せてご覧ください。

まとめ:行内の画像でもまとめて変更できる

Word の行内画像をまとめて変更する方法を調べましたが、検索でヒットするのがほとんど「行内以外の方法」だったんですよね。実際、行内に挿入した画像は複数選択できないようになっているので、一般的な手順ではまとめて変更できません。

だからといって、1 枚 1 枚変更していくのはあまりに面倒な作業なので、マクロを頼ることにしました。このマクロはシンプルなため、Windows でも Mac でも動作し、特に危険なものでもありません。使い方も簡単ですので、もし同じようなことで困っていた方は、ぜひお試しください。

ついに登場! iPhone 16e は楽天モバイルならかなりお得!

遂に発売された iPhone 16e は、エントリーモデルながらカメラ性能の向上や進化した使い勝手に加え、今後主流となる「Apple Intelligence」にも対応する、まさに次世代のスマホ。しかし、その魅力と引き換えに、価格が気になる方も多いのではないでしょうか?

そんな方におすすめなのが楽天モバイル
楽天モバイルなら、iPhone 16e を最大 3万6,000 円相当お得になるキャンペーンを実施中!かなりお得に買えるチャンスです。

加えて、48回払いなら本体代の最大半額分が支払い不要になるキャンペーンも!これはかなり魅力的ですよね。

楽天モバイルのメリットはこれだけではありません。
契約しているだけで楽天ポイントがどんどん貯まるので、普段のお買い物もお得に。最近の楽天経済圏はサービス改善が進んでおり、今こそ狙い目です。

iPhoneの本体価格だけでなく、日常の支出も含めてお得にしたい方は、ぜひ楽天モバイルをチェックしてみてください。

ここをクリック

iPhoneやiPadをお試しで使ってみたいなら「モノカリ」がおすすめ

とはいえ、iPhoneもiPadもいいお値段のするものですから、買う前に試してみたいということがあるでしょう。そんなときは「モノカリ」がおすすめです。

「モノカリ」は、スマホやパソコン、カメラなどのレンタルサービスで、手軽な料金でiPhoneやiPadをお試しできます。ここでレンタルして、「よし!使えそうだ!」となったら購入を検討すると間違いが少ないでしょう。もちろん、一定期間だけ使いたいといった場面で使用するのもありです。

レンタルで試してみたいという方は、こちらから詳細をご確認ください。

楽天モバイルはモバイルルーターも1円に

最近はスマホだけではなく、タブレットやPCなどを持ち歩く人が増えましたよね。どの端末もネットに接続しないと使えないアプリが多いので、ネット環境に苦労したことが多いと思います。

街中はフリーWi-Fiに溢れていますがセキュリティの問題があるし、スマホのテザリングだとバッテリーや通信量が不安になります。そこでおすすめなのが「モバイルルーターで運用する」という方法。

複数台の端末を同時にネットへ接続できるので、どこにいても不自由なく使える状態になるのは大きなメリットです。また、ネットに使う通信量をまとめられるので、通信量の節約にもつながります。たとえば、通話用の回線は基本利用料無料のPovoなどで確保しておき、ネット用の回線は通信料の安いキャリアを選択するといった感じです。

ただ、モバイルルーター自体がそれなりのお値段なのが難点。そこでおすすめなのが楽天モバイル。現在、Rakuten最強プランに契約すると、プラチナバンドに対応した最新のモバイルルーターが1円で買えてしまいます。

楽天モバイルは1つしかプランがなく、使った量に応じて料金が3段階に分かれる仕組み。料金も他のキャリアと比較して割安なので、お得感が強くわかりやすいのが特徴。正直、楽天モバイルが始まった頃はかなり怪しげな展開でしたが、今の楽天はモバイル事業に全力でグングン使い勝手がよくなっています。

また、他のキャリアのように縛りがないので、もし使用感に不満があったらすぐにやめられるのもメリットです。もし興味がありましたら、下のリンクから詳細をご確認ください。

ここをクリック
最後までご覧頂きありがとうございました。

より良いブログ運営のために、投げ銭で応援していただけると助かります!
何卒よろしくお願い申し上げます。

投げ銭で応援する♪

この記事が役に立ったと思ったら、フォロー&クリックして応援をお願いします!

ブログランキング・にほんブログ村へにほんブログ村
にほんブログ村 スマホ・携帯ブログへ にほんブログ村 PC家電ブログへ にほんブログ村 IT技術ブログへ
50歳からでもよくわかるガジェット話 - にほんブログ村
PVアクセスランキング にほんブログ村
人気ブログランキング
人気ブログランキングでフォロー
最後までご覧頂きありがとうございました。

より良いブログ運営のために、投げ銭で応援していただけると助かります!
何卒よろしくお願い申し上げます。

投げ銭で応援する♪

この記事が役に立ったと思ったら、フォロー&クリックして応援をお願いします!

ブログランキング・にほんブログ村へにほんブログ村
にほんブログ村 スマホ・携帯ブログへ にほんブログ村 PC家電ブログへ にほんブログ村 IT技術ブログへ
50歳からでもよくわかるガジェット話 - にほんブログ村
PVアクセスランキング にほんブログ村
人気ブログランキング
人気ブログランキングでフォロー
Wordアプリ・サービス
スポンサーリンク
この記事を書いた人
しげさん

スマホやタブレット、PC、ネットサービスなど、便利な使い方やトラブルシューティング、役に立つ情報まで、難しい言葉を使わずにわかりやすく解説しています。このブログを立ち上げたきっかけについてはこちらをどうぞ。

お仕事やレビューなどのご依頼は、お問い合わせフォームからお願いします。

しげさんをフォローする

コメント

タイトルとURLをコピーしました