Ana içeriğe atla

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

doc görüntünün var olup olmadığını kontrol edin 1

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.

doc görüntünün var olup olmadığını kontrol edin 2 doc görüntünün var olup olmadığını kontrol edin 3

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 AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations