ไปยังเนื้อหาหลัก

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

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2020-05-22

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

doc แทรกรูปภาพที่มีขนาดเท่ากัน 1

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

doc แทรกรูปภาพที่มีขนาดเท่ากัน 2

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

doc แทรกรูปภาพที่มีขนาดเท่ากัน 3

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

doc แทรกรูปภาพที่มีขนาดเท่ากัน 4

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


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

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

Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน. 

หลังจากการติดตั้ง 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 วันนี้และสัมผัสกับความแตกต่าง! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
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 :)
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations