Comment vérifier si une cellule contient une image dans Excel ?
Il est facile de trouver et de sélectionner toutes les images dans une feuille de calcul active dans Excel. Mais savez-vous comment vérifier si une cellule contient une image dans Excel ? Une méthode dans cet article peut vous aider.
Vérifiez si une cellule contient une image avec un code VBA
Vérifiez si une cellule contient une image avec un code VBA
Le code VBA ci-dessous peut vous aider à vérifier si une cellule contient une image. Veuillez procéder comme suit.
1. Ouvrez la feuille de calcul où vous devez vérifier si une image existe dans une cellule spécifique, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.
Code VBA : Vérifiez si une cellule contient une image dans 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. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, entrez l'adresse de la cellule que vous souhaitez vérifier pour une image, puis cliquez sur le bouton OK. Voir capture d'écran :
4. Une boîte de dialogue apparaîtra, comme indiqué ci-dessous, indiquant si une image existe dans la cellule spécifiée.
Articles connexes :
- Comment faire pour que toutes les images se déplacent et changent de taille automatiquement avec les cellules dans Excel ?
- Comment centrer une image dans une cellule Excel ?
- Comment insérer dynamiquement une image ou une photo dans une cellule basée sur la valeur de la cellule dans Excel ?
- Comment agrandir une image en cliquant dessus dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 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
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !