Effacer (supprimer) ttes les images inclues ds une zone ?
1 réponse
LANIMAL
Re-bonjour... (ça me prend par crise, mais ça dure pas !)
Dans une macro, quel code réalise la suppression
de toutes les images comprises dans une zone ?
par exemple dans A1:Q9
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
p.e, dans ce qui suit ne détruira que les formes strictement comprises dans les cellules de A1 à Q9. toutes les formes dont le dessin la cellule la plus à gauche
For Each dr In ActiveSheet.Shapes If Not Intersect(dr.TopLeftCell, Range("A1:Q9")) Is Nothing and Not Intersect(dr.BottomrightCell, Range("A1:Q9")) Is Nothing Then dr.Delete Next
Et si tout ne s'efface pas il faudra passer la colmlection Drawingobjects
Re-bonjour... (ça me prend par crise, mais ça dure pas !) Dans une macro, quel code réalise la suppression de toutes les images comprises dans une zone ? par exemple dans A1:Q9 Merci
Bonjour,
p.e, dans ce qui suit ne détruira que les formes strictement comprises
dans les cellules de A1 à Q9.
toutes les formes dont le dessin la cellule la plus à gauche
For Each dr In ActiveSheet.Shapes
If Not Intersect(dr.TopLeftCell, Range("A1:Q9")) Is Nothing and Not
Intersect(dr.BottomrightCell, Range("A1:Q9")) Is Nothing Then dr.Delete
Next
Et si tout ne s'efface pas il faudra passer la colmlection Drawingobjects
Re-bonjour... (ça me prend par crise, mais ça dure pas !)
Dans une macro, quel code réalise la suppression
de toutes les images comprises dans une zone ?
par exemple dans A1:Q9
Merci
p.e, dans ce qui suit ne détruira que les formes strictement comprises dans les cellules de A1 à Q9. toutes les formes dont le dessin la cellule la plus à gauche
For Each dr In ActiveSheet.Shapes If Not Intersect(dr.TopLeftCell, Range("A1:Q9")) Is Nothing and Not Intersect(dr.BottomrightCell, Range("A1:Q9")) Is Nothing Then dr.Delete Next
Et si tout ne s'efface pas il faudra passer la colmlection Drawingobjects
Re-bonjour... (ça me prend par crise, mais ça dure pas !) Dans une macro, quel code réalise la suppression de toutes les images comprises dans une zone ? par exemple dans A1:Q9 Merci