Etkin çalışma sayfasında bir şeklin veya resmin olup olmadığını nasıl kontrol edebilirim?
Örneğin, etkin çalışma sayfasına zaten onlarca şekil veya resim eklenmiş olsun ve siz de belirli bir şeklin veya resmin Geçerli Çalışma Sayfası’nda bulunup bulunmadığını kontrol etmek istiyorsunuz. Şekillere veya resimlere tek tek bakmadan bu görevi nasıl hızlıca halledebilirsiniz? Excel’in bu işlem için yerleşik bir işlevi olmasa da, bu makalede Geçerli Çalışma Sayfası’nda bir şeklin veya resmin varlığını anında tespit etmenizi sağlayacak pratik bir VBA kodu sunulmaktadır.
Bir şeklin veya resmin varlığını kontrol edin Aktif Çalışma Sayfası
Bir şeklin veya resmin varlığını kontrol edin Aktif Çalışma Sayfası
Geçerli çalışma sayfasında belirli bir resmin var olup olmadığını kontrol etmek için aşağıdaki makro kodunu uygulayın.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu betiğe yapıştırın.
VBA: Bir şeklin veya resmin varlığını kontrol etme
Sub CheckImage()
'UpdatebyExtendoffice20170927
Dim xChar As Picture
Dim xFlag As Boolean
Dim xCharName As String
On Error Resume Next
Application.ScreenUpdating = False
xCharName = "cat"
xFlag = False
For Each xChar In ActiveSheet.Pictures
Debug.Print xChar.Name
If xChar.Name = xCharName Then
MsgBox "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
xFlag = True
Exit For
End If
Next
If Not xFlag Then
MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
End If
Application.ScreenUpdating = True
End Sub
3. F5 tuşuna basarak kodu çalıştırın; bir iletişim kutusu açılacak ve resmin Geçerli Çalışma Sayfası’nda olup olmadığını gösterecektir.
 |  |
İpucu: Makro kodundaki xCharName = "cat" satırındaki "cat" ifadesini ihtiyaçlarınıza göre özelleştirebilirsiniz.
İlgili Makaleler:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar