Problème avec un userform dans powerpoint qui sert a supprimer des diapos [Résolu]

[toma65]

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 :

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]

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 :

  activepresentation.Slides(num de la diapo).Name = "nom à affecter"

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

[toma65]

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 :

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

Cdt

Thomas

[toma65]

j'ai essayé en mettant juste le numero dans la parenthèse aussi

[toma65]

C'est bon j'ai trouvé

il suffisait d'écrire

Code :

SlideX.delete

Merci en tout cas pour m'avoir dit comment trouver les numero ID