2 วิธีในการจัดกึ่งกลางรูปภาพและกล่องข้อความทั้งหมดในเอกสาร Word ของคุณ

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

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

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

ดังนั้นเราจะมุ่งเน้นไปที่ 2 วิธีในการจัดกึ่งกลางรูปภาพและกล่องข้อความที่“ สอดคล้องกับข้อความ”

วิธีที่ 1: จัดกึ่งกลางรูปภาพหรือกล่องข้อความด้วยตนเอง

ในการจัดรูปภาพ“ ในแนวเดียวกับข้อความ” ให้ทำตามขั้นตอนต่อไปนี้:

1. ขั้นแรกให้คลิกที่รูปภาพเพื่อเลือก
2. ประการที่สองคลิก "กึ่งกลาง" ในกลุ่ม "ย่อหน้า" ใต้แท็บ "หน้าแรก" หรือคุณสามารถใช้ทางลัด“ Ctrl + E” แทน

จากนั้นในการจัดกึ่งกลางกล่องข้อความให้ทำตามคำแนะนำเหล่านี้:

1. ในทำนองเดียวกันคลิกที่กล่องข้อความเพื่อเลือก
2. จากนั้นคลิกแท็บ "รูปแบบ" ใต้ "เครื่องมือวาดภาพ"
3. จากนั้นคลิก "จัดแนว" ในกลุ่ม "จัดเรียง"
4. แล้วเลือก“ Align Center” ในเมนูแบบเลื่อนลง

วิธีที่ 2: Batch Center หลายภาพหรือกล่องข้อความโดยอัตโนมัติ

พวกเราส่วนใหญ่คงชอบกระบวนการอัตโนมัติมากกว่าเพื่อประหยัดแรงงาน นี่ไงล่ะ

1. ก่อนอื่นให้กด“ Alt + F11” เพื่อเปิดตัวแก้ไข VBA
2. จากนั้นคลิกโครงการ "ปกติ"
3. คลิกแท็บ "แทรก" แล้วเลือก "โมดูล"
4. จากนั้นดับเบิลคลิกที่โมดูลเพื่อดึงพื้นที่แก้ไขออกทางด้านขวา
5. ถัดจากรูปภาพกลางคุณวางรหัสต่อไปนี้ที่นั่น:

Sub CenterInLinePictures()
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInLineShape 
End Sub

ในการจัดให้กล่องข้อความทั้งหมดอยู่ตรงกลางคุณต้องใช้มาโครการร้อง:

Sub CenterTextBoxes()
  Dim objDoc As Document
  Dim objTextBox As Shape
 
  Set objDoc = ActiveDocument
 
  For Each objTextBox In objDoc.Shapes
    If objTextBox.Type = msoTextBox Then
      objTextBox.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
      objTextBox.Left = wdShapeCenter
    End If
  Next objTextBox
End Sub

ในการจัดให้ทั้งรูปภาพและกล่องข้อความอยู่ตรงกลางคุณจะต้องใช้อันนี้:

Sub CenterInLinePicturesAndTextBoxes()
  Dim objInLineShape As InlineShape
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInLineShape
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
      objShape.Left = wdShapeCenter
    End If
  Next objShape
End Sub

6. สุดท้ายคลิกปุ่ม“ Run” หรือกด“ F5”

แก้ไขปัญหาเอกสาร

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

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xlsx ทุจริต และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.