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

 Bagaimana cara memperbesar atau memperkecil gambar dengan satu klik di Excel?

Misalkan ada beberapa gambar dalam satu lembar yang ukurannya berbeda. Apakah Anda punya cara untuk memperbesar atau memperkecil gambar-gambar ini dalam satu ukuran dengan satu klik? Tidak ada fitur built-in untuk mengatasinya, tapi di artikel ini, saya memperkenalkan kode VBA untuk memperbesar atau memperkecil semua gambar di lembar dengan satu klik.

Memperbesar dan memperkecil gambar dengan satu klik dengan VBA


panah gelembung kanan biru Memperbesar dan memperkecil gambar dengan satu klik dengan VBA

Lakukan langkah-langkah di bawah ini untuk memperbesar atau memperkecil gambar dengan satu klik.

1. Klik kanan pada tab lembar di mana Anda ingin mengubah ukuran gambar, dan pilih Lihat kode dari menu konteks.
doc perbesar gambar satu klik 1

2. Dalam bermunculan Microsoft Visual Basic untuk Aplikasis jendela, dan tempel kode di bawah ini ke skrip kosong.

VBA: Memperbesar dan memperkecil gambar dengan satu klik

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc perbesar gambar satu klik 2

 

3. Simpan kode dan tutup jendela. Dan saat Anda mengklik di sel mana pun di kolom A, semua gambar akan menyusut. Lihat tangkapan layar:
doc perbesar gambar satu klik 3

4. Dan saat Anda mengklik sel yang ada di kanan atas gambar, gambar relatif akan diperbesar. Lihat tangkapan layar:
doc perbesar gambar satu klik 4

Ketik.Jika Anda ingin cepat memasukkan watermark ke dalam lembaran, silakan coba gunakan Kutools for Excel's Sisipkan Tanda Air seperti yang ditunjukkan pada tangkapan layar berikut. Ini berfungsi penuh tanpa batasan di 30 hari, silakan unduh dan dapatkan uji coba gratis sekarang.

doc masukkan watermark

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja
Komentar ini diminimalkan oleh moderator di situs
Maaf, saya tidak tahu mengapa itu tidak berhasil dalam kasus Anda, tetapi sebelum melakukan tutorial ini, saya telah mengujinya beberapa kali.
Komentar ini diminimalkan oleh moderator di situs
Saat saya menyimpan sebagai buku kerja dengan Macro-Enabled, tutup dan buka kembali, integritas gambar telah hilang.
Komentar ini diminimalkan oleh moderator di situs
Saya telah mengujinya untuk menyimpan buku kerja sebagai buku kerja yang mengaktifkan makro, membuka kembali buku kerja yang mengaktifkan makro, gambarnya masih ada, dan kodenya juga bisa berfungsi. Mungkin mencoba untuk menyimpan buku kerja sebelum Anda menyimpannya sebagai buku kerja yang mengaktifkan makro.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih.
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