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 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 運行此代碼的關鍵 瀏覽 顯示窗口,請選擇包含要插入圖像的文件夾,請參見屏幕截圖:

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 - 超過 100 Word 的高級功能, 節省您的 50% 時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
按評論排序
留言 (4)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
你好
我是蘇打水,我在這裡說,我真的從你的網站和你提供的信息中學到了很多東西。
感謝那 :)
網站主持人對此評論進行了最小化
謝謝你的幫助......這很有趣......偉大的工作......祝你好運
網站主持人對此評論進行了最小化
Molto Bello 實用! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? 百分比/報告? 像素? 厘米?
快樂!
網站主持人對此評論進行了最小化
你好,格拉塞利
單位大小是上述 VBA 代碼中的池塘。
感謝您!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護