Loncat ke daftar isi utama

 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:

doc memasukkan gambar dengan ukuran yang sama 1

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

doc memasukkan gambar dengan ukuran yang sama 2

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

doc memasukkan gambar dengan ukuran yang sama 3

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

doc memasukkan gambar dengan ukuran yang sama 4

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!

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  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 MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

Sisipan Kreatif: Menyisipkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  /  Temukan lebih lanjut di Grup Sisipkan kami

🔍 Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. 👉 Unduh dengan uji coba 30 hari Sekarang 🚀.

 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations