Bagaimana cara menyisipkan banyak gambar dengan ukuran yang sama di Word?

Biasanya, Anda bisa menyisipkan banyak gambar sekaligus dalam satu dokumen Word dengan ukuran aslinya. Namun, ada kalanya Anda perlu memastikan semua gambar memiliki ukuran yang sama untuk tampilan yang konsisten dan profesional. Mengubah ukuran setiap gambar secara manual dapat memakan waktu. Pada artikel ini, kita akan membahas cara menyisipkan banyak gambar dengan ukuran yang sama ke dalam dokumen Word, memberikan cara yang lebih efisien untuk mengelola gambar dan menjaga keseragaman tata letak dokumen Anda.

Sisipkan beberapa gambar dengan ukuran yang sama di Word dengan VBA

Ubah ukuran semua gambar ke ukuran yang sama berdasarkan gambar tertentu dengan Kutools for Word

Masukkan beberapa gambar dengan ukuran yang sama di dokumen Word dengan kode VBA

Kode vba berikut dapat membantu Anda memasukkan beberapa gambar dan mengubah ukurannya ke ukuran yang Anda tentukan sekaligus, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Kode VBA: masukkan banyak gambar dengan ukuran yang sama:

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. Lalu, tekan F5 kunci untuk menjalankan kode ini, a Browse jendela ditampilkan, pilih folder yang berisi gambar yang ingin Anda masukkan, lihat tangkapan layar:

4. Lalu klik OK tombol, dan kotak prompt muncul untuk mengingatkan Anda jika Anda ingin mengubah ukuran gambar, lihat tangkapan layar:

5. Klik Yes, dan ketik nomor ukuran tinggi dan lebar yang dipisahkan dengan koma ke dalam kotak teks, lihat tangkapan layar:

6. Dan kemudian klik OK, semua gambar yang disisipkan telah diatur ulang dengan ukuran yang sama, lihat tangkapan layar:

Note: ukuran unit kolam dalam kode VBA.

Ubah ukuran semua gambar ke ukuran yang sama berdasarkan gambar tertentu dengan Kutools for Word

Jika ada beberapa gambar di dokumen Word Anda, dengan Kutools for Word'S Ubah Ukuran Gambar utilitas, Anda dapat dengan cepat mengubah ukuran semua gambar sama seperti yang spesifik.

Setelah menginstal Kutools for Word, lakukan seperti ini:

1. Sesuaikan satu gambar dengan ukuran yang Anda inginkan, lalu pilih, lalu klik Kutools Ditambah > Resize > Ubah Ukuran Gambar dengan Pilihan, lihat tangkapan layar:

2. Dan semua gambar dalam dokumen kata ini telah diubah ukurannya seperti yang dipilih segera, lihat tangkapan layar:

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Fitur AI Kutools: Hasilkan Konten / Menulis Ulang Teks / Tanya Jawab Dokumen / Dapatkan Jawaban Cepat / Terjemahkan dokumen / Dokumen Polandia (Format Pertahankan)...

📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF...

✏ Pengeditan Isi: Temukan dan Ganti Batch di Beberapa File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus kelompok...

➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Banyak Gambar / Temukan lebih lanjut di Menyisipkan kelompok...

🔍 Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...

⭐ Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Konversi Tools...

👉 Ingin mencoba fitur-fitur tersebut? Unduh Kutools untuk Word sekarang! 🚀

Free download     Beli sekarang     Pelajari Lebih Lanjut tentang Kutools untuk Word

 

Alat Produktivitas Kantor Terbaik

Kutools for Word - 100+ Alat untuk Word

• 🤖 Fitur AI Kutools: Menghasilkan, Menulis kembali, Meringkaskan, Menterjemahkan Dokumen / Dapatkan Jawaban Cepat / Dokumen Polandia (Format Pertahankan)
• 📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Konversi Batch ke PDF
• ✏ Pengeditan Isi: Temukan dan Ganti Batch / Ubah Ukuran Semua Gambar
• 🧹 Bersih dengan Mudah: Hapus Spasi Ekstra / Hapus Bagian Breaks
• ➕ Sisipan Kreatif: Masukkan Seribu Pemisah / Sisipkan Kotak Centang / Buat Kode QR

Free download Beli sekarang Pelajari Lebih Lanjut tentang Kutools