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。 点击 插页 > 模块,然后将以下代码粘贴到“模块窗口”中。

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。 点击 ,然后在文本框中输入用逗号分隔的高度和宽度的尺寸编号,请参见屏幕截图:

doc插入大小相同的图片3

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

doc插入大小相同的图片4

备注:单位大小在VBA代码中为“池塘”。


使用Kutools for Word根据特定图像将所有图片调整为相同大小

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

Kutools for Word : 带有超过100个方便的Word加载项,可以在60天内免费试用. 

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

1。 将一张图片调整为所需的尺寸,然后选择它,然后单击 Kutools 加 > 调整大小 > 通过选择调整图像大小,请参见屏幕截图:

2。 并且此Word文档中的所有图像都立即被调整为与所选图像相同的大小,请参见屏幕截图:

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


推荐的Word生产力工具

 

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

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (2)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
你好
我是苏打水,我在这里说,我真的从你的网站和你提供的信息中学到了很多东西。
感谢那 :)
苏打水
该评论由网站上的主持人最小化
谢谢你的帮助......这很有趣......伟大的工作......祝你好运
希查姆塞尔吉尼
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点