Etkin sayfada bir şekil veya görüntünün olup olmadığı nasıl kontrol edilir?
Örneğin, etkin çalışma sayfasına zaten eklenmiş düzinelerce şekil veya görüntü vardır ve şimdi etkin sayfada belirli bir şeklin veya görüntünün olup olmadığını kontrol etmek istiyorsunuz, bu işi şekilleri kontrol etmeden hızlı bir şekilde nasıl halledebilirsiniz? görüntüler tek tek? Excel'de hiçbir yerleşik işlev size yardımcı olamaz, ancak bu makalede, etkin sayfada bir şekil veya görüntünün olup olmadığını hızlı bir şekilde bulmak için bir VBA kodu sunuyoruz.
Etkin sayfada bir şekil veya görüntünün olup olmadığını kontrol edin
Etkin sayfada bir şekil veya görüntünün olup olmadığını kontrol edin
Aktif sayfada belirli bir görüntünün olup olmadığını kontrol etmek için lütfen aşağıdaki makro kodunu uygulayın.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül ve aşağıdaki kodu komut dosyasına yapıştırın.
VBA: Bir şeklin veya görüntünün olup olmadığını kontrol edin
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar Picture Dim xFlag As Boolean Dim xCharName As String As String On Error Resume Next Application.ScreenUpdating = False xCharName = "cat" xFlag = ActiveSheet.Pictures'taki Her xChar için Yanlış Debug.Print xChar.Name If xChar.Name = xCharName MsgBox "Resim Etkin Sayfada", vbInformation, "KuTools For Excel" xFlag = Sonunda Son İçin Doğru Çıkış xFlag Değilse Sonra MsgBox "Görüntü Etkin Sayfada Değil", vbInformation, "KuTools For Excel" Application.ScreenUpdating = True End Sub
3. Basın F5 kodu çalıştırmak için, görüntünün etkin sayfada olup olmadığını size hatırlatmak için bir iletişim kutusu açılır.
Bahşiş: Makro kodunda, görüntü adını şuradan değiştirebilirsiniz. xCharName = "kedi" ihtiyacınızı karşılamak için
İlgili Makaleler:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!