[PPT-2003] Suppression d'objets dans un fichier powerpoint 2003

[FRSJF3C]

Bonjour,

j'aurai besoin d'un petit coup de main concernant un fichier sous powerpoint 2003 car j'avoue que sur Excel je me débrouille mais sous ppt je rame un peu...

Le fichier fait 43 slides et des objets et images sont insérés depuis un fichier excel via macro.

Je n'ai besoin de supprimer ces objets que dans les slides 7, 19, 23 et 41.
Ma macro de suppression fonctionne mais pour tout le fichier et non les slides désirés:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub SuppressionObjet()
Dim shp As Shape
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If Left(shp.Name, 6) = "Object" Then
shp.Delete
End If
Next shp
Next sld
 
End Sub

Pouvez vous me donner un coup de main afin de taper directement dans les slides voulus.

* Merci *

[Philippe JOCHMANS]

Bonjour

Un coup d'oeil à la FAQ PowerPoint devrait t'aider : Comment effectuer une action sur certaines diapositives ?

Philippe

[FRSJF3C]

Merci, je vais aller jeter un oeil de ce pas