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

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 serta 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:


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 (9)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Maravilloso funciona perfecto!!!.
Hay forma que la imagen quede en el cento de la pantalla, solo es una Oncesion, nada mas, la macro anda muy bien
Komentar ini diminimalkan oleh moderator di situs
Kode ini berfungsi dengan baik
Tetapi ketika Anda membuka buku kerja untuk kedua kalinya, gambarnya menjadi kabur
Komentar ini diminimalkan oleh moderator di situs
ketika Anda telah memasukkan kode dan tekan simpan gambar menjadi lebih kecil dan lebih kecil ... ide bagus tetapi tidak berhasil, saya takut ...
Komentar ini diminimalkan oleh moderator di situs
Ini yang saya cari tetapi tidak berfungsi dengan excel 2016. Saya mendapatkan pesan kesalahan Application.caller = Error 2023
Komentar ini diminimalkan oleh moderator di situs
Halo, saya mencoba mengubah nilai besar (1) dan kecil (0.1) tetapi makro tidak berfungsi dengan benar. Setelah beberapa klik gambar tidak berubah :(
Komentar ini diminimalkan oleh moderator di situs
Makro berfungsi, masalahnya adalah ketika Anda mengubah ukuran gambar di makro, jika Anda pergi ke bawah 1, dan menyimpan, gambar akan kehilangan kualitasnya :(
Komentar ini diminimalkan oleh moderator di situs
Saya tahu bahwa jpg kehilangan kualitas setiap kali disimpan. Itu sebabnya pengguna disarankan untuk menyimpan ke nama file baru. Ini bisa menjadi alasan mengapa orang yang mencoba menggunakan makro ini berakhir dengan gambar yang kabur. Pendekatan yang lebih baik adalah memiliki dua gambar - besar dan kecil dari foto yang sama. Yang kecil ditempatkan di sel, yang besar di lembar yang berbeda, file yang sama. Kemudian gunakan kode untuk menampilkan gambar besar saat gambar kecil diklik atau diarahkan. Cara ini. tidak ada gambar yang diubah ukurannya dan karenanya tidak boleh kehilangan kualitas. Saya tidak yakin Kutools mampu melakukan ini.
Komentar ini diminimalkan oleh moderator di situs
Tidak berfungsi
Komentar ini diminimalkan oleh moderator di situs
Bilder Anda tidak dapat melihat ke atas
Ich hatte dasselbe Masalah dengan den verpixelten Bildern. Du must in den Einstellungen etwas ndern und zwar:
Unter Datei/Optionen/Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei komprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. LG
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