Comment vérifier si une forme ou une image existe dans la feuille active?
Par exemple, des dizaines de formes ou d'images ont déjà été ajoutées à la feuille de calcul active, et maintenant vous voulez vérifier si une forme ou une image spécifique existe ou non dans la feuille active, comment pouvez-vous gérer rapidement ce travail sans vérifier les formes ou images une par une? Dans Excel, aucune fonction intégrée ne peut vous aider, mais dans cet article, j'introduis un code VBA pour trouver rapidement si une forme ou une image existe dans la feuille active.
Vérifier si une forme ou une image existe dans la feuille active
Vérifier si une forme ou une image existe dans la feuille active
Veuillez appliquer le code de macro ci-dessous pour vérifier si une image spécifique existe dans la feuille active.
1. presse Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module et collez le code ci-dessous dans le script.
VBA: vérifier si une forme ou une image existe
Sub CheckImage () 'UpdatebyExtendoffice20170927
Dim xChar comme image
Dim xFlag comme booléen
Dim xCharName sous forme de chaîne
En cas d'erreur, reprendre ensuite
Application.ScreenUpdating = Faux
xCharName = "chat"
xFlag = Faux
Pour chaque xChar dans ActiveSheet.Pictures
Debug.Print xChar.Name
Si xChar.Name = xCharName Alors
MsgBox "L'image est sur la feuille active", vbInformation, "KuTools For Excel"
xFlag = Vrai
Quitter pour
Fin si
Suivant
Si ce n'est pas xFlag alors
MsgBox "L'image n'est pas sur la feuille active", vbInformation, "KuTools For Excel"
Fin si
Application.ScreenUpdating = True
Fin du sous-marin
3. presse F5 pour exécuter le code, une boîte de dialogue apparaît pour vous rappeler si l'image existe dans la feuille active.
 |  |
Conseil : Dans le code macro, vous pouvez modifier le nom de l'image dans xCharName = "chat" pour répondre à votre besoin.
Articles relatifs:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!