Bagaimana cara memusatkan gambar di sel Excel?
Artikel ini akan menunjukkan kepada Anda metode memindahkan gambar ke tengah sel di lembar kerja Excel seperti gambar di bawah ini.
Pindahkan gambar ke tengah sel dengan kode VBA
Pindahkan gambar ke tengah sel dengan kode VBA.
Lakukan hal berikut untuk memindahkan gambar ke tengah sel di lembar kerja di Excel.
1. Buka lembar kerja yang berisi gambar-gambar yang perlu Anda pusatkan di sel, kemudian tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA ke jendela Kode.
Kode VBA: Pindahkan gambar ke tengah sel di lembar kerja
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Catatan:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. tekan F5 kunci untuk menjalankan kode.
Kemudian semua gambar yang ditentukan akan dipindahkan ke tengah sel tertentu segera seperti gambar di bawah ini.
Artikel Terkait:
- Bagaimana cara mengubah semua gambar secara otomatis untuk dipindahkan dan ukuran dengan sel di Excel?
- Bagaimana cara memeriksa apakah sel berisi gambar di Excel?
- Bagaimana cara memasukkan gambar atau gambar secara dinamis ke dalam sel berdasarkan nilai sel di Excel?
- Bagaimana cara memperbesar gambar saat mengkliknya di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!