Note: The other languages of the website are Google-translated. Back to English

 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 Plus > 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 Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (4)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hi Halo
Saya Soda, saya di sini untuk mengatakan itu, saya benar-benar belajar banyak dengan situs web Anda dan informasi yang Anda berikan.
Terima kasih untuk itu :)
Komentar ini diminimalkan oleh moderator di situs
terima kasih atas bantuannya ... sangat menarik ... pekerjaan besar ... semoga berhasil
Komentar ini diminimalkan oleh moderator di situs
Molto bello dan berguna! Non mi chiara solo un a cosa, nel Kode VBA berdasarkan kriteria aumento/diminuisco le dimensioni delle immagini? Persentual/hubungan? piksel? cm?
HARUS!
Komentar ini diminimalkan oleh moderator di situs
Halo, Grasselli
Ukuran unit adalah kolam dalam kode VBA di atas.
Terima kasih!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL