Problème avec un userform dans powerpoint qui sert a supprimer des diapos

**toma65** · 24/05/2007, 17h44

Bonjour,

Je vous explique,
J'ai un fichier powerpoint avec x diapos qui va resservir plusieurs fois
seulement à chaque fois je n'ai besoin que d'une sélection de diapos.
C'est pourquoi j'ai créé un userform qui supprime les diapos dont je n'est pas besoin, le seul problème c'est que je n'arrive pas à nommer mes diapos
nominativement juste par le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox13_Click()
ActivePresentation.Slides(24).Delete
End Sub

Alors si je supprime la diapo 12 avant la diapo 24, la diapo 24 s'appelle en fait diapo 23 du coup. d'ou le bug.
J'ai essayé de nommer avec le titre de la diapo sans succes et avec le numero ID de chaque diapo, je n'ai toujours pas réussi à trouver celui-ci.

Si quelqu'un peu m'éclairer
Merci

Toma65

**maxime115** · 24/05/2007, 19h04

Pour nommer une diapo tu as 2 facons :

Manuellement Sur une diapositive, sur un controle (case a cocher, txtbox, bouton...) faire un clic droit et aller dans Propriétés une fenêtre s'ouvre et il faut aller dans SlideX dans la liste déroulante tout en haut. Ensuite il suffit d'entrer le nom à mettre dans la case à droite de (Name)
Par le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
activepresentation.Slides(num de la diapo).Name = "nom à affecter"
```

cordialement

Ps: utilise les balises "#" pour afficher ton code

**toma65** · 25/05/2007, 09h50

OK c'est cool ta méthode, ça me permet de connaître mes numéros de slide ID
par contre j'ai toujours un problème, le code ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CheckBox1_Click()
ActivePresentation.Slides.FindBySlideID(Slide113).Delete
ActivePresentation.Slides.FindBySlideID(Slide90).Delete
End Sub