Bagaimana cara memasukkan gambar ke dalam kotak teks?
Secara default, kita bisa memasukkan gambar atau gambar ke dalam lembar kerja dengan cepat menggunakan fungsi Sisipkan, tetapi fitur ini tidak diterapkan untuk memasukkan gambar ke dalam kotak teks. Dengan artikel ini, saya dapat membantu Anda memasukkan gambar ke dalam kotak teks sesuai kebutuhan.
Masukkan gambar atau gambar ke dalam kotak teks dengan kode VBA
Masukkan gambar atau gambar ke dalam kotak teks dengan kode VBA
Untuk memasukkan gambar ke dalam kotak teks, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Sisipkan kotak teks dengan mengklik Menyisipkan > Kotak teks, lalu gambar kotak teks, lihat tangkapan layar:
2. Kemudian tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Masukkan gambar ke dalam kotak teks:
Sub ShapePicture()
Dim xSh As Shape
Dim xPic As IPictureDisp
Dim xFileName As String
xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
Set xPic = LoadPicture(xFileName)
Set xSh = Sheets("Sheet4").Shapes(1)
xSh.Height = xPic.Height / xPic.Width * xSh.Width
Set xPic = LoadPicture("")
Set xPic = Nothing
xSh.Fill.UserPicture xFileName
End Sub
Catatan: Pada kode di atas, Sheet4 adalah nama lembar yang berisi kotak teks yang ingin Anda sisipkan gambar, dan C: \ Users \ DT168 \ Desktop \ gambar \ Apple.JPG adalah jalur gambar dari gambar yang ingin Anda sisipkan, Anda harus mengubahnya sesuai kebutuhan Anda.
4. Lalu tekan F5 kunci untuk menjalankan kode ini, gambar tertentu akan dimasukkan ke dalam kotak teks sekaligus, dan Anda dapat mengedit kotak teks sesuai kebutuhan, lihat tangkapan layar:
Artikel terkait:
Bagaimana cara mengatur nilai default di kotak teks?
Bagaimana cara mengizinkan hanya angka untuk dimasukkan dalam kotak teks?
Bagaimana cara menerapkan pemeriksa ejaan di kotak teks?
Bagaimana cara mengubah warna kotak teks berdasarkan nilai di Excel?
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 ...
- Super Formula Bar (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-2019 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 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.
- Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
