提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Word文档中插入相同大小的多张图片?

通常,您可以在Word文档中以原始大小一次插入多个图像。 有时,您需要在插入时将这些图像排列为相同的大小。 在本文中,我将讨论如何在Word文档中插入具有相同大小的多张图片。

使用VBA代码在Word文档中插入具有相同大小的多张图片

使用Kutools for Word将所有图片调整为基于特定图像的相同尺寸


根据所选图片将所有图片调整为相同大小:

要将所有图像的大小调整为相同大小,您应该正常调整它们的大小,但使用 Kutools for Word's 调整图像大小 功能,您可以通过选择开启来调整相同尺寸的所有照片。 另一方面,您也可以根据需要将它们调整为特定的百分比。

doc调整图像05

Kutools for Word:拥有超过100便利的Word插件,可以免费试用60时间不受限制。 点击下载并免费试用现在!


使用VBA代码在Word文档中插入具有相同大小的多张图片

以下vba代码可以帮助您插入多张图片并立即将其调整为指定大小,请执行以下操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并将以下代码粘贴到模块窗口中。

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 运行此代码的关键,a 浏览 窗口显示,请选择包含要插入的图像的文件夹,请参见屏幕截图:

doc插入大小相同的1图像

4。 然后点击 OK 按钮,弹出一个提示框,提醒您是否要调整图片大小,请参见屏幕截图:

doc插入大小相同的2图像

5。 点击 ,并在文本框中键入由逗号分隔的高度和宽度的大小编号,请参见屏幕截图:

doc插入大小相同的3图像

6。 然后点击 OK,所有插入的图像都重新排列为相同的大小,请参见屏幕截图:

doc插入大小相同的4图像

注意:单位大小是VBA代码中的池塘。


使用Kutools for Word将所有图片调整为基于特定图像的相同尺寸

如果Word文档中存在多个图片,请使用 Kutools for Word调整图像大小 实用程序,您可以快速调整所有图像的大小与特定图像相同。

Kutools for Word : 有超过100便利的Word插件,可以在60天免费试用而没有限制.

安装后 Kutools for Word,请这样做:

1。 将一张图片调整为您想要的尺寸,然后选择它,然后单击 企业服务 > 调整图像大小 > 通过选择调整图像大小,看截图:

doc插入大小相同的5图像

2。 此单词文档中的所有图像都已立即调整为与所选图像相同,请参见屏幕截图:

doc插入大小相同的6图像

点击下载Kutools for Word并免费试用!



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在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 · 6 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 :)