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:
Pouvez vous me donner un coup de main afin de taper directement dans les slides voulus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
* Merci *
Partager