Note: The other languages of the website are Google-translated. Back to English
English English

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

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 For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (4)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ฉันชื่อโซดา ฉันมาที่นี่เพื่อจะบอกว่า ฉันได้เรียนรู้มากมายเกี่ยวกับเว็บไซต์และข้อมูลที่คุณให้
ขอบคุณสำหรับสิ่งนั้น :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับความช่วยเหลือ ... น่าสนใจมาก ... งานใหญ่ ... โชคดี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? เปอร์เซ็นต์ / rapporto? พิกเซล? ซม.?
กราซี่!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Grasselli
ขนาดหน่วยเป็นบ่อในรหัส VBA ด้านบน
ขอขอบคุณ!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ