Comment effacer des images avec une macro
Résolu
Ju@nita
Messages postés
170
Statut
Membre
-
Ju@nita Messages postés 170 Statut Membre -
Ju@nita Messages postés 170 Statut Membre -
Bonjour,
J'ai des états de comptes en pdf que je convertis en fichier excel. Je dois monter une macro pour remplacer toutes les étapes qu'on fait manuellement et qui prennent du temps. La toute première étape est d'éliminer toutes les images (logo) Est-ce qu'il existe une commande que je pourrais incorporer dans une macro qui chercherait toutes les images et les effacerait d'un coup ? Les images sont identifiées image1.png et image2.png
Merci
Windows / Chrome 138.0.0.0
A voir également:
- Jitbit
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Des images - Guide
- Comment effacer une page word - Guide
- Comment recuperer des messages effacés sur whatsapp - Guide
- Comment effacer les messages sur google - Guide
3 réponses
Bonjour,
Essayez cela :
Sub SupprimerToutesLesImages()
Dim ws As Worksheet
Dim shp As Shape
' Parcourir toutes les feuilles du classeur
For Each ws In ActiveWorkbook.Worksheets
' Parcourir toutes les formes de la feuille
For Each shp In ws.Shapes
' Vérifier si c'est une image
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
Next ws
End Sub