Loncat ke daftar isi utama

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) dan 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 Ditambah > 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 Ditambah > 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 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to 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 End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to 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 With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations