Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Effacer (supprimer) ttes les images inclues ds une zone ?

1 réponse
Avatar
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

1 réponse

Avatar
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