จะแทรกรูปภาพหลาย ๆ รูปที่มีขนาดเท่ากันในเอกสาร Word ได้อย่างไร?

โดยปกติคุณสามารถแทรกภาพหลายภาพพร้อมกันในเอกสาร Word ที่มีขนาดดั้งเดิมได้ บางครั้งคุณจำเป็นต้องจัดเรียงรูปภาพเหล่านี้ให้มีขนาดเท่ากันเมื่อแทรก บทความนี้จะพูดถึงวิธีการแทรกรูปภาพหลาย ๆ รูปที่มีขนาดเท่ากันในเอกสาร Word

แทรกรูปภาพหลายรูปที่มีขนาดเท่ากันในเอกสาร Word ด้วยรหัส VBA

ปรับขนาดรูปภาพทั้งหมดให้มีขนาดเท่ากันตามรูปภาพเฉพาะด้วย Kutools for Word

แทรกรูปภาพหลายรูปที่มีขนาดเท่ากันในเอกสาร Word ด้วยรหัส VBA

รหัส 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 กุญแจสำคัญในการเรียกใช้รหัสนี้ a หมวดหมู่สินค้า หน้าต่างจะปรากฏขึ้นโปรดเลือกโฟลเดอร์ที่มีภาพที่คุณต้องการแทรกดูภาพหน้าจอ:

4. จากนั้นคลิก OK ปุ่มและกล่อง promptf จะปรากฏขึ้นเพื่อเตือนคุณหากคุณต้องการปรับขนาดรูปภาพโปรดดูภาพหน้าจอ:

5. คลิก ใช่และพิมพ์ตัวเลขขนาดของความสูงและความกว้างซึ่งคั่นด้วยลูกน้ำในกล่องข้อความโปรดดูภาพหน้าจอ:

6. จากนั้นคลิก OKรูปภาพที่แทรกทั้งหมดได้รับการจัดเรียงใหม่ให้มีขนาดเท่ากันโปรดดูภาพหน้าจอ:

หมายเหตุ: ขนาดหน่วยเป็นบ่อในรหัส VBA

ปรับขนาดรูปภาพทั้งหมดให้มีขนาดเท่ากันตามรูปภาพเฉพาะด้วย Kutools for Word

หากมีรูปภาพหลายภาพในเอกสาร Word ของคุณด้วยไฟล์ Kutools สำหรับ Word's ปรับขนาดรูปภาพ ยูทิลิตี้คุณสามารถปรับขนาดภาพทั้งหมดได้อย่างรวดเร็วเหมือนกับภาพที่ระบุ

หลังจากการติดตั้ง Kutools สำหรับ Wordโปรดทำตามนี้:

1. ปรับภาพหนึ่งภาพตามขนาดที่คุณต้องการจากนั้นเลือกจากนั้นคลิก Kutools พลัส > การปรับขนาด > ปรับขนาดภาพด้วยการเลือกดูภาพหน้าจอ:

2. และรูปภาพทั้งหมดในเอกสารคำนี้ได้รับการปรับขนาดให้เหมือนกับภาพที่เลือกทันทีดูภาพหน้าจอ:

คลิกเพื่อดาวน์โหลด Kutools for Word และทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา  /  เขียนข้อความใหม่  /  สรุปเอกสาร  /  สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน...

✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์  /  ปรับขนาดรูปภาพทั้งหมด  /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ  /  แบ่งส่วน  /  ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...

➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...

🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...

⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง...

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀

ดาวน์โหลดฟรี     อ่านเพิ่มเติม     ซื้อเลย