Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonsoir,
Une piste : lister le nom des images que tu souhaites conserver et dans
une boucle balayant toutes les images pour les supprimer, gérer
l'exclusion de celles listées à l'aide d'un test sur le nom d'icelles
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Caroual" a écrit dans le message de
news:%Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonsoir,
Une piste : lister le nom des images que tu souhaites conserver et dans
une boucle balayant toutes les images pour les supprimer, gérer
l'exclusion de celles listées à l'aide d'un test sur le nom d'icelles
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Caroual" <caroual@gmail.com> a écrit dans le message de
news:%23FibXDTbKHA.2160@TK2MSFTNGP02.phx.gbl...
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonsoir,
Une piste : lister le nom des images que tu souhaites conserver et dans
une boucle balayant toutes les images pour les supprimer, gérer
l'exclusion de celles listées à l'aide d'un test sur le nom d'icelles
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Caroual" a écrit dans le message de
news:%Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique, je voudrais pouvoir supprimer par macro les anciennes images à
chaque fois que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" a écrit dans le message de groupe de
discussion :
#
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" <caroual@gmail.com> a écrit dans le message de groupe de
discussion :
#FibXDTbKHA.2160@TK2MSFTNGP02.phx.gbl...
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" a écrit dans le message de groupe de
discussion :
#
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Un commentaire sur la procédure :
Un bout de code qui a été oublié...!
Tout ceci :
'--------------------
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
'--------------------
peut être remplacé par simplement ceci :
Sh.Delete
"michdenis" a écrit dans le message de groupe de
discussion :
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" a écrit dans le message de groupe de
discussion :
#
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Un commentaire sur la procédure :
Un bout de code qui a été oublié...!
Tout ceci :
'--------------------
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
'--------------------
peut être remplacé par simplement ceci :
Sh.Delete
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
D105C37D-CC05-4F26-BFA1-C351DE52C807@microsoft.com...
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" <caroual@gmail.com> a écrit dans le message de groupe de
discussion :
#FibXDTbKHA.2160@TK2MSFTNGP02.phx.gbl...
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual
Un commentaire sur la procédure :
Un bout de code qui a été oublié...!
Tout ceci :
'--------------------
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
'--------------------
peut être remplacé par simplement ceci :
Sh.Delete
"michdenis" a écrit dans le message de groupe de
discussion :
Bonjour Caroual,
Cela devrait effacer toutes les images contenu
dans une sélection de cellules faites à l'écran.
'-------------------------------------
Sub test1()
Dim Sh As Shape, X As String
Dim Rg As Range
If TypeName(Selection) = "Range" Then
X = Selection.Parent.Name
Set Rg = Selection
With Worksheets(X)
For Each Sh In .Shapes
If TypeName(Sh.OLEFormat.Object) = "Picture" Then
If Not Intersect(Rg, Sh.TopLeftCell) Is Nothing And _
Not Intersect(Rg, Sh.BottomRightCell) Is Nothing Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
End If
Next
End With
End If
End Sub
'-------------------------------------
"Caroual" a écrit dans le message de groupe de
discussion :
#
Bonjour,
Sur une feuille excel, j'ai une macro qui m'importe des images de
graphique,
je voudrais pouvoir supprimer par macro les anciennes images à chaque fois
que j'actualise et que je vais en chercher de nouvelles.
Le problème est que sur cette feuille j'ai plusieurs autres images que je
ne
veux pas supprimer. Je cherche donc une commande qui dirait :
suppression de toutes les images qui se trouvent dans la zone de
selection.
J'ai essayé de sélectionner une zone et de faire clear ou delete mais mes
images sont toujours là !!
est-ce possible ?
Caroual