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

Bagaimana cara mengubah ukuran semua / banyak gambar di Word?

Saat kami menyalin atau mengimpor gambar dari Internet atau file lain, ukuran gambar mungkin berbeda. Semua orang tahu cara mengubah ukuran gambar satu per satu, tetapi jika kita ingin mengubah ukurannya ke ukuran yang sama sekaligus, bagaimana caranya? Tutorial ini akan menunjukkan beberapa metode untuk mengubah ukuran gambar.

Ubah ukuran gambar secara manual di Word

Ubah ukuran gambar dengan VBA

Ubah ukuran banyak gambar sekaligus dengan Kutools for Word


Ubah ukuran gambar secara manual di Word

1. Untuk menampilkan gagang pengatur ukuran gambar dengan mengklik gambar;

2. Letakkan kursor di salah satu gagang pengatur ukuran gambar.

3. Seret gagang pengatur ukuran hingga ukuran gambar sesuai dengan kebutuhan Anda. Lihat tangkapan layar:

doc menyesuaikan gambar 1

Note: Dengan metode ini, Anda tidak dapat mengubah ukuran banyak gambar sekaligus. Anda perlu mengubah ukurannya satu per satu hingga semua gambar diubah ukurannya.


Ubah ukuran gambar dengan VBA

Dengan kode VBA berikut, Anda dapat mengubah ukuran gambar ke ukuran ideal Anda. Anda bisa menyelesaikannya sebagai berikut:

Dalam contoh ini, kami mengubah ukuran gambar menjadi tinggi 1.78 inci dan lebar 3.17 inci.

1. Pilih gambar yang ingin Anda ubah ukurannya;

2. tekan Alt + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi jendela;

3. Klik Modul dari Menyisipkan tab, salin dan tempel kode VBA berikut ke file Modul jendela;

Kode VBA: Ubah ukuran satu gambar ke ukuran tertentu:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Klik Run tombol atau F5 kunci untuk menjalankan kode VBA, dan gambar yang dipilih telah diubah ukurannya ke ukuran kebutuhan Anda.

Note: Pada kode di atas,  Dalam shp.Height = InchesToPoints (1.78) serta shp.Width = InchesToPoints (3.17) adalah tinggi dan lebar gambar, Anda dapat mengubah ukuran untuk memenuhi kebutuhan Anda.

Dengan kode VBA ini, Anda juga tidak bisa mengubah ukuran semua atau beberapa gambar sekaligus. Anda perlu bolak-balik antara dokumen Word dan Microsoft Visual Basic untuk Aplikasi jendela untuk memilih gambar dan menerapkan kode. Itu terlalu memakan waktu.


Ubah ukuran gambar dengan Kutools for Word

Dengan Kutools untuk Word 's Ubah Ukuran Gambar utilitas, Anda dapat menyingkirkan operasi yang mengganggu dan memakan waktu, dan dengan cepat mengubah ukuran semua gambar dari dokumen Anda.

Kutools for Word : dengan lebih dari 100 add-in Word yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. 

1. Silakan terapkan utilitas ini dengan mengklik Kutools Plus > Resize. Lihat tangkapan layar:

2. Jika Anda ingin mengubah ukuran semua gambar ke persentase tertentu dari ukuran aslinya, pilih salah satu dari enam persentase dari daftar drop-down. Misalnya, jika Anda ingin mengubah ukuran semua gambar menjadi 50% dari ukuran aslinya, silakan pilih 50%. Setelah mengklik 25%, Anda akan melihat semua gambar berukuran hingga 50%. Lihat tangkapan layar:

doc menyesuaikan gambar 3

Jika Anda ingin menyesuaikan semua gambar ke ukuran yang sama dengan yang dipilih, pilih gambar sebagai ukuran model, lalu klik Kutools Plus > Resize > Ubah Ukuran Gambar dengan Pilihan, dan semua gambar akan diubah ukurannya dengan ukuran yang sama berdasarkan yang dipilih, lihat tangkapan layar:

doc menyesuaikan gambar 4

Untuk informasi lebih rinci tentang Kutools for Word'S Ubah Ukuran Gambar utilitas, silakan klik disini.

Klik untuk mengunduh Kutools for Word dan uji coba gratis sekarang!


Demo: Ubah ukuran semua gambar sekaligus di Word

Kutools for Word: dengan lebih dari 100 add-in Word yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. Unduh 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 (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
simpan uang Anda dan jalankan makro ini: Kredit ke Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
simpan uang Anda dan jalankan makro ini: Kredit ke Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End Dengan Sub Akhir Bagus sekali!!! Anda menghemat uang dan waktu saya. Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Di mana saya meletakkan kode ini?
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu jika fitur placeholder/penetes/pengukuran gambar otomatis tersedia di Windows 365? Tidak tahu di mana mencari atau menemukan bantuan tentang ini karena bantuan obrolan Microsoft SANGAT tidak membantu. Setiap tip akan sangat dihargai.
Komentar ini diminimalkan oleh moderator di situs
Saya perlu mengubah ukuran semua gambar dalam dokumen Word dengan lebar yang sama tetapi tidak merusak gambar. jadi skala mereka dengan lebar yang sama. Apakah ini mungkin melalui makro?
Komentar ini diminimalkan oleh moderator di situs
Jika Anda menyimpan dokumen Anda sebagai .docx, maka Anda akan dapat membukanya sebagai arsip zip. Akan ada folder media dengan semua gambar (milik saya memiliki gambar PNG). Anda kemudian dapat menggunakan program seperti IrfanView, XnViewMP, FastStone Viewer untuk melakukan transformasi batch seperti mengubah ukuran, mengurangi kedalaman warna, dll. Kemas kembali gambar Anda ke dalam zip dan ganti namanya menjadi docx. Misalnya, di docx saya yang penuh dengan tangkapan layar, saya perlu mengurangi jumlah warna menjadi 8, yang cukup untuk keperluan dokumentasi. Setelah diproses doc 10MB saya menjadi 1.8MB doc, jadi penghematan bisa signifikan. Selalu simpan docx asli Anda jika Anda ingin mengembalikan gambar setelah terlalu banyak degradasi/pemrosesan dll.
Komentar ini diminimalkan oleh moderator di situs
Saya menyia-nyiakan 3 jam atau lebih untuk mencoba membuat makro VBA ini berfungsi. Menyerah dan mencoba Kutools yang berfungsi dengan baik! Membelinya segera karena bernilai $49!
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