Bagaimana cara memperbesar gambar saat mengkliknya di Excel?
Misalkan Anda telah memasukkan daftar gambar ke dalam kolom dan mencocokkan ukuran gambar dengan ukuran sel seperti gambar di bawah ini. Karena gambar yang disisipkan terlihat kecil, Anda mungkin perlu memperbesarnya untuk beberapa tujuan. Artikel ini akan menunjukkan kepada Anda metode memperbesar gambar saat mengkliknya di Excel, dan memulihkan ke ukuran aslinya dengan klik kedua.
Perbesar gambar saat mengkliknya dengan kode VBA
Perbesar gambar saat mengkliknya dengan kode VBA
Kode VBA berikut dapat membantu Anda memperbesar gambar saat mengkliknya di Excel. Silakan lakukan sebagai berikut.
1. Klik kanan gambar yang ingin Anda perbesar hanya dengan mengkliknya, lalu klik Tetapkan Makro dari menu konteks. Lihat tangkapan layar:
2. Dalam Tetapkan Makro kotak dialog, silakan klik New .
3. Dalam bermunculan Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA di bawah ini di antara Sub dan End Sub kode. Lihat tangkapan layar:
Kode VBA: Perbesar gambar dengan mengkliknya di Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
Note: Pada kode tersebut, Anda dapat menetapkan ukuran gambar yang besar di kode big = 3.
4. Kemudian tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.
Mulai sekarang, ketika mengklik gambar, itu akan diperbesar ke ukuran yang Anda tentukan, dan klik lagi akan memulihkan ke ukuran asli seperti gambar di bawah ini.
Terkait artikel:
- Bagaimana cara mengunci gambar / gambar ke atau di dalam sel di Excel?
- Bagaimana cara memasukkan gambar atau gambar secara dinamis ke dalam sel berdasarkan nilai sel 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!