Bagaimana cara menyisipkan banyak gambar dengan ukuran yang sama di dokumen Word?
Biasanya, Anda dapat memasukkan banyak gambar sekaligus dalam dokumen Word dengan ukuran aslinya. Terkadang, Anda perlu mengatur gambar-gambar ini dengan ukuran yang sama saat memasukkan. Artikel ini, saya akan berbicara tentang cara menyisipkan banyak gambar dengan ukuran yang sama dalam dokumen Word.
Masukkan beberapa gambar dengan ukuran yang sama di dokumen Word dengan kode 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 promptf 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.
Kutools for Word : dengan lebih dari 100 add-in Word yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. |
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:
Klik untuk mengunduh Kutools for Word dan uji coba gratis sekarang!
Alat Produktivitas Kantor Terbaik
Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!
🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten / Menulis Ulang Teks / Meringkas Dokumen / Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word
📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF / Ekspor Halaman sebagai Gambar / Cetak Banyak File sekaligus...
✏ Pengeditan Isi: Temukan dan Ganti Batch di Banyak File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...
🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Semua Header / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...
➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Tabel Garis Diagonal / Keterangan Persamaan / Keterangan gambar / Keterangan Tabel / Banyak Gambar / Temukan lebih lanjut di Sisipkan Grup...
🔍 Pilihan Presisi: Tepat halaman tertentu / tabel / bentuk / paragraf judul / Tingkatkan navigasi dengan lebih Pilih fitur...
⭐ Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun / menyisipkan teks berulang secara otomatis / beralih antar jendela dokumen dengan mulus / 11 Alat Konversi...