Note: The other languages of the website are Google-translated. Back to English

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

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

VBAコードを使用してWord文書に同じサイズの複数の画像を挿入します

Kutools for Wordを使用して、特定の画像に基づいてすべての画像のサイズを同じサイズに変更します


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 ボタンをクリックすると、画像のサイズを変更するかどうかを通知するプロンプトボックスが表示されます。スクリーンショットを参照してください。

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

5に設定します。 OK をクリックします。 あり、および高さと幅のサイズ番号をコンマで区切ってテキストボックスに入力します。スクリーンショットを参照してください。

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

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

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

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


Kutools for Wordを使用して、特定の画像に基づいてすべての画像のサイズを同じサイズに変更します

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

Kutools for Word : 100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます. 

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

1。 XNUMXつの画像を希望のサイズに調整し、それを選択して、[ クツールズプラス > リサイズ > 選択して画像のサイズを変更する、スクリーンショットを参照してください:

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

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください!


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (2)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
こんにちはこんにちは
私はソーダです、私はここに言います、私はあなたのウェブサイトとあなたが提供する情報で本当に多くを学びます。
それをありがとう:)
ソーダ
このコメントは、サイトのモデレーターによって最小化されました
助けてくれてありがとう...それはとても面白いです...大きな仕事...幸運
ヒチャム・セルジーニ
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0  文字
推奨される場所