Bagaimana cara menyalin gambar dari lembar kerja ke formulir pengguna di Excel?
Artikel ini akan menunjukkan metode menyalin gambar dari lembar kerja aktif ke Userform di Excel.
Salin gambar dari lembar kerja ke Userform dengan menyalin dan menempel
Salin gambar dari lembar kerja ke Userform dengan kode VBA
Salin gambar dari lembar kerja ke Userform dengan menyalin dan menempel
Lakukan hal berikut untuk menyalin gambar dari lembar kerja ke Userform.
1. Geser ke lembar kerja berisi gambar yang perlu Anda salin ke Userform, lalu tekan lain + F11 kunci bersama untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Bentuk pengguna. Lihat tangkapan layar:
3. Sekarang silahkan masukkan Image Control ke dalam UserForm. Silakan klik Gambar tombol di Toolbox kotak dialog, lalu gambar Kontrol Gambar ke dalam Formulir Pengguna secara manual. Lihat tangkapan layar:
4. Klik kanan kontrol Gambar yang disisipkan, dan klik Properties dari menu konteks seperti gambar di bawah ini yang ditampilkan:
5. Kemudian Anda dapat melihat a Properties panel ditampilkan di sisi kiri Microsoft Visual Basic untuk Aplikasi jendela.
6. Kembali ke lembar kerja dan pilih gambar yang ingin Anda tampilkan di Userform, lalu salin gambar dengan menekan Ctrl + C kunci.
7. Masuk ke Microsoft Visual Basic untuk Aplikasi sekali lagi, gulir ke bawah untuk mengklik Gambar bidang dan kemudian tempel nama gambar yang disalin ke dalamnya di bawah tab Abjad.
Sekarang gambar di lembar kerja disalin ke Userform.
Salin gambar dari lembar kerja ke Userform dengan kode VBA
Bagian ini akan memperlihatkan solusi untuk menyalin beberapa gambar dari lembar kerja ke Userform, lalu menampilkan gambar yang sesuai di Userform dengan memilih nama gambar dari kotak Kombo. Silakan lakukan sebagai berikut.
1. Silakan ikuti langkah 1 dan 2 di atas o masukkan Userform di lembar kerja Anda.
2. Kemudian masukkan a Kontrol Bingkai ke UserFrom seperti gambar di bawah ini yang ditampilkan:
3. Klik kanan Bingkai yang dimasukkan, lalu pilih Properties dari menu konteks. Di kiri Properties panel, pilih Salah dari Terlihat bidang. Lihat tangkapan layar:
4. Masukkan beberapa kontrol Gambar ke dalam Bingkai seperti gambar di bawah ini.
5. Kembali ke lembar kerja dan pilih gambar yang ingin Anda tampilkan di Userform, dan tekan Ctrl + C kunci untuk menyalinnya
6. Masuk ke Microsoft Visual Basic untuk Aplikasi jendela, klik kanan kontrol Gambar pertama, dan pilih Properties dari menu klik kanan. Lihat tangkapan layar yang ditampilkan.
7. Dalam Properties panel, silakan klik Gambar lapangan, lalu tekan Ctrl + V untuk menempelkan gambar yang Anda salin di langkah 5, lalu pilih 1 - fmPictureSizeModeStrtch dari GambarUkuranMode daftar drop-down seperti gambar di bawah ini yang ditampilkan.
8. Ulangi langkah 5 - 7 untuk menempelkan gambar lain dari lembar kerja ke kiri Kontrol gambar di UserForm. Dan hasilnya akan ditampilkan seperti gambar di bawah ini.
9. Pindahkan Bingkai kontrol ke sudut UserForm, lalu masukkan file Gambar kontrol dan a Kotak kombo kontrol ke UserForm. Lihat tangkapan layar:
10. Klik kanan file Formulir Pengguna, Dan Kemudian klik Lihat kode. Kemudian salin dan tempel kode VBA di bawah ini untuk mengganti yang asli ke jendela Kode.
Kode VBA1: Salin gambar dari lembar kerja ke Userform
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End SubNote: Di dalam kode, Formulir Pengguna1 adalah nama UserForm yang dimasukkan, Image4 adalah nama kontrol Gambar tempat Anda akan menampilkan gambar di dalamnya. Dan Gambar mewakili semua kontrol Gambar yang berisi gambar yang Anda salin dari lembar kerja. Kotak kombo1 adalah nama kotak kombo yang telah Anda masukkan ke dalam formulir pengguna. Silakan ubah sesuai keinginan Anda.
11. Tutup Microsoft Visual Basic untuk Aplikasi jendela.
12. Masukkan tombol Command ke dalam lembar kerja dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX).
13. Klik kanan tombol perintah dan pilih Lihat kode dari menu Konteks. Lalu salin dan tempel kode VBA di bawah ini ke jendela Kode. Dan terakhir tutup jendelanya.
Kode VBA2: Salin gambar dari lembar kerja ke Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. klik Pengembang > Mode Desain untuk mematikan Mode Desain.
Mulai sekarang, ketika mengklik tombol perintah, UserForm akan muncul. Anda dapat menampilkan gambar dengan memilih nama gambar dari kotak kombo. Lihat tangkapan layar:
Memilih nama yang berbeda dari kotak kombo akan menampilkan gambar yang berbeda di UserForm.
Artikel Terkait:
- Bagaimana cara memusatkan gambar di sel 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!
