- Posted by : Adi Mulyadi
- on : Thursday, September 24, 2026
mengubah semua ukuran gambar sekaligus secara otomatis tanpa perlu klik satu per satu, Anda bisa menggunakan Script VBA (Macro).
Berikut adalah script VBA dan langkah-langkah mudah untuk menjalankannya.
Langkah 1: Salin Kode VBA Berikut
Pilih salah satu kode di bawah ini sesuai dengan jenis pengaturan gambar di dokumen Anda. Umumnya, gambar di Word menggunakan format Inline Shapes (sejajar dengan teks).
vba
Sub UbahSemuaUkuranGambar()
Dim img As InlineShape
Dim targetTinggi As Single
Dim targetLebar As Single
'--- ATUR UKURAN DALAM SENTIMETER (CM) DI SINI ---
targetTinggi = 5 ' Ubah angka ini untuk Tinggi (cm)
targetLebar = 7 ' Ubah angka ini untuk Lebar (cm)
'------------------------------------------------
' Proses mengubah semua gambar
For Each img In ActiveDocument.InlineShapes
img.LockAspectRatio = msoFalse ' Matikan kunci rasio agar ukuran pas sesuai input
img.Height = CentimetersToPoints(targetTinggi)
img.Width = CentimetersToPoints(targetLebar)
Next img
MsgBox "Semua gambar berhasil diubah ukurannya!", vbInformation, "Selesai"
End Sub
Langkah 2: Cara Menjalankan VBA di Word
- Buka dokumen Word Anda yang berisi gambar-gambar tersebut.
- Tekan tombol Alt + F11 pada keyboard untuk membuka jendela Microsoft Visual Basic for Applications.
- Pada menu bagian atas, klik Insert > Module.
- Tempel (Paste) kode VBA yang sudah Anda salin di atas ke dalam lembar putih yang muncul.
- Silakan ubah angka pada bagian
targetTinggi = 5dantargetLebar = 7sesuai dengan ukuran sentimeter (cm) yang Anda inginkan. - Tekan tombol F5 pada keyboard atau klik ikon Play (Run) berwarna hijau di toolbar atas untuk menjalankan script.
- Selesai! Kotak notifikasi akan muncul dan semua gambar Anda langsung berubah ukuran dalam sekejap.