Trouver toutes les images d'une feuille

Salut,

Dans quel objet sont tes images ?


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Patrice Henrio wrote:

Je voudrai trouver toutes les images d'une feuille excell et les
supprimer par programmation.

existe-t-il quelque chose du genre ?

Pour chaque Feuille du classeur
Pour chaque image de Feuille
Supprimer image
Next
Next

Merci.

Elles "étaient" dans une feuille

Je te remercie de t'intéresser à mon problème, mais en fait je viens de le
résoudre (ça me paraissait compliqué, mais en fait c'était simple)

Sub Main()
For Each F In ThisWorkbook.Sheets
While F.Shapes.Count > 0
F.Shapes(1).Delete
Wend
Next
End Sub

"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23LU6JwmyEHA.4028@TK2MSFTNGP09.phx.gbl...

Salut,

Dans quel objet sont tes images ?


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Patrice Henrio wrote:

Je voudrai trouver toutes les images d'une feuille excell et les
supprimer par programmation.

existe-t-il quelque chose du genre ?

Pour chaque Feuille du classeur
Pour chaque image de Feuille
Supprimer image
Next
Next

Merci.

Hello,

Selon la question, dans un objet WorkSheet.

Voici un bout de code permettant de supprimer les images d'une feuille:

Public Sub RemoveWorksheetPics(Worksheet As Worksheet)
Dim i As Long

i = 1
Do Until i > Worksheet.Shapes.Count
'Si l'objet est une image, on la supprime ce qui diminue
' Worksheet.Shapes.Count
' et permet d'atteindre la condition
'Sinon on augmente i pour atteindre la condition

If Worksheet.Shapes(i).Type = msoPicture Then
Worksheet.Shapes(i).Delete
Else
i = i + 1
End If
Loop
End Sub

'Supprime toutes les images du classeur actif:
Public Sub RemovePics()
Dim Sheet As Worksheet

For Each Sheet In ActiveWorkbook.Sheets
RemoveWorksheetPics Sheet
Next Sheet
End Sub

--
François Picalausa

"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23LU6JwmyEHA.4028@TK2MSFTNGP09.phx.gbl

Salut,

Dans quel objet sont tes images ?



Patrice Henrio wrote:

Je voudrai trouver toutes les images d'une feuille excell et les
supprimer par programmation.