Powerpoint Save

Fermé
TKT - Modifié le 6 janv. 2018 à 02:47
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 7 janv. 2018 à 07:48
Bonjour,
J ai une macro pour enregistrer mon ppt en pdf mais maintenant je veux enregistrer seulement différent slides

voila ma macro :

Sub toPDF()
Dim opres As Presentation
Set opres = ActivePresentation
Dim strName As String
strName = Left(opres.Name, InStrRev(opres.Name, ".") - 1)
opres.SaveCopyAs FileName:=opres.Path & "\" & strName & Format(Date, "dd-mm-yyyy"), FileFormat:=ppSaveAsPDF
MsgBox "Saved as :" & opres.Path & "\" & strName & ".PDF"
End Sub
A voir également:

2 réponses

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 323
6 janv. 2018 à 02:48
0
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
6 janv. 2018 à 14:17
bonjour, moi je supprimerais les slides que tu ne veux pas sauver, avant de faire le sauvetage.
0
Bonjour,

En fait je veux garder tout mes slides , et créer plusieurs type d'enregistrement.
Merci
0
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > TKT
7 janv. 2018 à 07:48
eh bien, tu peux repartir chaque fois de ton document original, avec tous les slides.
Ou bien créer une copie avant sauvetage vers PDF, supprimer des slides dans cette copie, sauver cette copie comme PDF, et recommencer ensuite.
Je pense que tu peux aussi "imprimer vers PDF", cela te permettra peut-être mieux de choisir les slides.
0