2 Metode untuk Menengahkan Semua Gambar dan Kotak Teks di Dokumen Word Anda

Pada artikel ini, kami ingin memperkenalkan Anda dengan 2 metode untuk memusatkan semua gambar dan kotak teks di dokumen Word Anda.

Gambar dan bentuk, seperti kotak teks, memainkan peran penting dalam membuat dokumen yang bagus. Dengan semakin banyaknya gambar dan bentuk yang disisipkan, kebutuhan untuk mengintegrasikan pemformatannya, misalnya untuk memusatkannya, mulai muncul.

Yang harus Anda ketahui adalah bahwa semua gambar yang dimasukkan ke dalam dokumen diatur dalam tata letak "Sejalan dengan teks", sementara kotak teks berbentuk mengalir. Anda dapat mengubah tata letak gambar sesuai kebutuhan, tetapi untuk memusatkannya, Anda harus mempertimbangkan pembungkusan teks. Karena pemformatan teks dapat dengan mudah diubah, meninggalkan Anda dengan tata letak yang tidak Anda sukai.

Oleh karena itu, kami akan fokus pada 2 cara untuk memusatkan gambar dan kotak teks "Sejalan dengan teks".

Metode 1: Pusatkan Satu Gambar atau Kotak Teks Secara Manual

Untuk memusatkan gambar “Sejalan dengan teks”, ikuti langkah-langkah berikut:

1. Pertama, klik pada gambar untuk memilihnya.
2. Kedua, klik "Tengah" di grup "Paragraf" di bawah tab "Beranda". Atau Anda dapat menggunakan pintasan "Ctrl+ E" sebagai gantinya.

Kemudian untuk memusatkan kotak teks, ikuti petunjuk berikut:

1. Demikian pula, klik pada kotak teks untuk memilihnya.
2. Kemudian klik tab "Format" di bawah "Alat Menggambar".
3. Selanjutnya klik “Align” di grup “Arrange”.
4. Dan pilih “Align Center” pada menu drop-down-nya.

Metode 2: Batch Center Banyak Gambar atau Kotak Teks Secara Otomatis

Sebagian besar dari kita akan lebih menyukai proses otomatis untuk menghemat tenaga. Ini dia.

1. Pertama, tekan "Alt + F11" untuk membuka editor VBA.
2. Selanjutnya klik proyek "Normal".
3. Klik tab "Sisipkan" dan pilih "Modul".
4. Kemudian klik dua kali pada modul untuk memunculkan ruang pengeditan di sisi kanan.
5. Di sebelah tengah gambar, Anda menempelkan kode berikut di sana:

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

Untuk memusatkan semua kotak teks, Anda memerlukan makro berikut:

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

Untuk memusatkan gambar dan kotak teks, Anda harus menggunakan yang ini:

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. Terakhir, klik tombol "Jalankan" atau tekan "F5".

Mengatasi Masalah Dokumen

Tidak peduli seberapa enggan kita harus mengakui bahwa Firman tidak mudah. Kerusakannya dapat menyebabkan korupsi dokumen saat mewarisi rusak dok bisa membuat kita patah hati. Untuk mengurangi kecemasan seperti itu, disarankan untuk mendapatkan alat pemulihan dokumen terlebih dahulu. Maka Anda tidak perlu khawatir tentang kehilangan data.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx korupsi ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com