ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Word文書に同じサイズの複数の画像を挿入するにはどうすればよいですか?

通常、元のサイズのWord文書に複数の画像を一度に挿入できます。 場合によっては、挿入するときにこれらの画像を同じサイズに配置する必要があります。 この記事では、同じサイズの複数の画像をWord文書に挿入する方法について説明します。

VBAコードでWord文書に同じサイズの複数の画像を挿入する

Word用Kutoolsで特定の画像に基づいてすべての画像を同じサイズにリサイズする


選択したサイズに基づいて、すべての画像のサイズを同じサイズに変更します。

すべての画像のサイズを同じサイズに変更するには、通常は1つずつサイズを変更する必要がありますが、 Kutools for Word's イメージのサイズ変更 同じサイズのすべての画像を選択して調整することができます。 また、必要に応じて特定のパーセンテージにリサイズすることもできます。

doc画像を調整する05

Kutools for Word100便利なWordアドイン以上で、自由に60日に試してみてください。 クリックしてダウンロードし、今すぐ無料トライアル!


VBAコードでWord文書に同じサイズの複数の画像を挿入する

次のVBAコードを使用すると、複数の画像を挿入して指定したサイズに一度にサイズを変更できます。

1。 押さえつける Alt + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール次のコードをモジュールウィンドウに貼り付けます。

VBAコード:同じサイズの複数の画像を挿入する:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3。 そして、 F5 このコードを実行するためのキー、 ブラウズ ウィンドウが表示されたら、挿入する画像を含むフォルダを選択してください。スクリーンショットを参照してください:

doc同じサイズの画像を挿入する1

4。 次に、をクリックします OK ボタンを押し、ピクチャのサイズを変更するかどうかを知らせるためにpromptfボックスがポップアップされます。スクリーンショットを参照してください:

doc同じサイズの画像を挿入する2

5に設定します。 OK をクリックします。 はいカンマで区切られた高さと幅のサイズ番号をテキストボックスに入力してください。スクリーンショットを参照してください:

doc同じサイズの画像を挿入する3

6。 そして、 OK、挿入されたすべての画像が同じサイズで再配置されました。スクリーンショットを参照してください:

doc同じサイズの画像を挿入する4

:単位サイズはVBAコードの池です。


Word用Kutoolsで特定の画像に基づいてすべての画像を同じサイズにリサイズする

複数の画像がWord文書に存在する場合、 Kutools for Wordさん イメージのサイズ変更 ユーティリティを使用すると、特定の画像と同じようにすばやくすべての画像のサイズを変更できます。

Kutools for Word : 100便利なWordアドイン以上で、60日以内に自由に試してみることができます.

インストールした後 Kutools for Word、次のようにしてください:

1。 1つの画像を目的のサイズに調整してから選択し、をクリックします。 大口プラン > イメージのサイズ変更 > 選択した画像のサイズを変更する、スクリーンショットを見る:

doc同じサイズの画像を挿入する5

2。 この単語の文書内のすべての画像は、選択した画像と同じサイズに直ちにサイズ変更されました。スクリーンショットを参照してください。

doc同じサイズの画像を挿入する6

クリックしてWord用のKutoolsをダウンロードし、今すぐ無料トライアル!



おすすめのWord生産性向上ツール

Word用Kutools - Microsoft Word用の100高度な機能以上の50時間の節約

  • 複雑で繰り返しのある操作は、数秒で1回の処理で実行できます。
  • 一度にWord文書にフォルダ間で複数の画像を挿入します。
  • フォルダ間の複数のWordファイルを希望の順序で1つに結合します。
  • 見出し1、セクション区切り、またはその他の基準に従って、現在の文書を別々の文書に分割します。
  • DocとDocx、DocxとPDF間のファイル変換、一般的な変換と選択のためのツール集、 など...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 3 months ago
    Hi, hello
    I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
    Thanks for that :)