"chichouille" a écrit dans le message news: blho96$5ta$
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour pouvoir en remettre d'autre car autrement il insere les nouvelles par-dessus.
Merci.
isabelle
bonjour chichouille,
s'il n'y a pas d'autre objet sur cette feuille, ActiveSheet.DrawingObjects.Delete
mais attention si tu as mit d'autre objet activeX sur cette feuille il seront effecer également. pour éviter cela il faut faire une boucle et vérifier le nom des objets
ActiveSheet.DrawingObjects.Select On Error Resume Next For i = 1 To Selection.Count + 1 If Left(ActiveSheet.DrawingObjects(i).Name, 4) = "Pict" Then _ ActiveSheet.DrawingObjects(i).Delete Next
isabelle
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour pouvoir en remettre d'autre car autrement il insere les nouvelles par-dessus.
Merci.
bonjour chichouille,
s'il n'y a pas d'autre objet sur cette feuille,
ActiveSheet.DrawingObjects.Delete
mais attention si tu as mit d'autre objet activeX sur cette feuille il
seront effecer également. pour éviter cela il faut faire une boucle et
vérifier le nom des objets
ActiveSheet.DrawingObjects.Select
On Error Resume Next
For i = 1 To Selection.Count + 1
If Left(ActiveSheet.DrawingObjects(i).Name, 4) = "Pict" Then _
ActiveSheet.DrawingObjects(i).Delete
Next
isabelle
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et
cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour pouvoir en
remettre d'autre car autrement il insere les nouvelles par-dessus.
s'il n'y a pas d'autre objet sur cette feuille, ActiveSheet.DrawingObjects.Delete
mais attention si tu as mit d'autre objet activeX sur cette feuille il seront effecer également. pour éviter cela il faut faire une boucle et vérifier le nom des objets
ActiveSheet.DrawingObjects.Select On Error Resume Next For i = 1 To Selection.Count + 1 If Left(ActiveSheet.DrawingObjects(i).Name, 4) = "Pict" Then _ ActiveSheet.DrawingObjects(i).Delete Next
isabelle
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour pouvoir en remettre d'autre car autrement il insere les nouvelles par-dessus.
Merci.
xavier
bonjour, et si je souhaite effacer qu'une image? (donc une seule cellule)
"AV" a écrit dans le message de news:blimj2$36h$
A défaut de précisions, essaye ça :
ActiveSheet.DrawingObjects.Delete
AV
"chichouille" a écrit dans le message news: blho96$5ta$
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour pouvoir en
remettre d'autre car autrement il insere les nouvelles par-dessus.
Merci.
bonjour,
et si je souhaite effacer qu'une image? (donc une seule cellule)
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:blimj2$36h$1@news-reader5.wanadoo.fr...
A défaut de précisions, essaye ça :
ActiveSheet.DrawingObjects.Delete
AV
"chichouille" <chichouille@msn.com> a écrit dans le message news:
blho96$5ta$1@news-reader4.wanadoo.fr...
J'ai un autre souci, j'ai inséré une image dans une cellule par macro et
cela sur plusieurs ligne. Sur chaque case de la colonne 1.
Je voudrais au debut de ma macro supprimer toutes ces images pour
pouvoir en
remettre d'autre car autrement il insere les nouvelles par-dessus.
