Bagaimana cara memeriksa apakah sel berisi gambar di Excel?
Sangat mudah untuk menemukan dan memilih semua gambar dalam lembar kerja aktif di Excel. Tapi tahukah Anda cara memeriksa apakah sel berisi gambar di Excel? Metode dalam artikel ini dapat membantu Anda.
Periksa apakah sel berisi gambar dengan kode VBA
Periksa apakah sel berisi gambar dengan kode VBA
Kode VBA di bawah ini dapat membantu Anda memeriksa apakah sel berisi gambar. Silakan lakukan sebagai berikut.
1. Buka lembar kerja Anda perlu memeriksa apakah gambar yang ada di sel tertentu, kemudian tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA ke jendela Kode.
Kode VBA: Periksa apakah sel berisi gambar di Excel
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub
3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, silakan masukkan sel yang ingin Anda periksa apakah berisi gambar, lalu klik OK tombol. Lihat tangkapan layar:
4. Kemudian akan muncul kotak dialog seperti gambar di bawah ini yang menunjukkan apakah gambar ada atau tidak di sel yang ditentukan.
Artikel Terkait:
- Bagaimana cara mengubah semua gambar secara otomatis untuk dipindahkan dan ukuran dengan sel di Excel?
- Bagaimana cara memusatkan gambar di sel 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!