extraire slide dans nouveau document !

[Monnier]

Bonjour, j'aimerai enregistrer chaque slide d'un document ppt dans de nouveau document !!
Par exemple pour un ppt de 100 slides, crée 100 document avec un nom allant de 1 a 100.
Je sais pas du tout comment procéder!! Si vous aviez des pistes
Ah oui, il faudrait egalement pouvoir inverser le processus et crée un document avec les 100slides ...
Est ce que je reves un peu?

ps: je pense que c'est possible via les macros mais je n'y connais pas vraiment grand chose ...

Merci bien!

[ouisansdoute]

Bonjour,

Sans passer par une macro, il est possible d'enregistrer chaque diapo comme un fichier unique mais dans un format qui n'est pas PowerPoint mais jpg. Pour ce faire cliquer sur Fichier/Enregistrer sous... dans la zone Type de fichier choisir Format d'échange JPEG.
Cette opération crée un répertoire portant le nom du diaporama et, à l'intérieur de ce répertoire des images Diapositive1.jpg, Diapositive2.jpg, ... Ce sont bien des images est non des fichiers PowerPoint

A l'inverse pour insérer des diapos dans un diapo en cours, on peut passer par le menu Insertion/diapositives à partir d'un fichier mais je ne suis pas sûre que cela réponde à ta question.

[Monnier]

le but de diviser le powerpoint en plusieur ppt est de partager le travail avec plusieur personne et apres de le reconstruire (sans avoir a copier 100fois le ppt ...)
Donc faire des images c'est pas trop sa que je recherche

[ouisansdoute]

Si je comprends bien, il s'agit de travail collaboratif sur un même fichier.
De quelle version de PowerPoint disposes-tu ?

Les personnes composent-elles complètement leur diapo ou partent-elles d'une diapo existante ayant déjà un contenu (et pas seulement une forme) ?

Sont-elles sur le même réseau ou s'échangent-elles les diapos par messagerie ?
Leur contribution est-elle juste sur du texte ?

[Monnier]

bon c'est bon, j'ai reussi mes premieres macro
Now je cherche a ce que la macro soit disponible sur n'importe qu'elle document ppt ... (quel soit inclus dans ppt en gros...)
Quelqun sait comment faire?

[Monnier]

bon j'ai a peu pres reussi a obtenir ce que je voulais mais il reste un probleme.
Lorsque je recrée mon fichier powerpoint a partir des multiples fichiers, un seul masque est gardé
Comment cela se fait-il?

[ouisansdoute]

Bonjour,

Peux-tu faire profiter la collectivité des solutions que tu as trouvé ?
Peut-être un exemplaire du PPt en question ?

D'avance merci

[mister red]

Bonsoir, je suis aussi interesse par la macro. J'ai le même besoin de pouvoir dégrouper et regrouper des slides PPT dans le cadre d'un reporting. Est-il possible de recuperer cet asset ?

Merci d'avance

[Monnier]

Bon voila ce que j'ai fais, si quelqu'un peut rajouter la correction du probleme du masque ...

 Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Long
    CountFilesFromDirectory = 0
    If RightB$(sDir, 2) <> "\" Then sDir = sDir & "\"
'   formate le  chemin
    Dim sFile As String
    sFile = Dir(sDir & sFilter, vbHidden Or vbSystem)
    If LenB(sFile) > 0 Then
'       boucle sur tous les  fichiers (et incrémente)
        Do
            CountFilesFromDirectory = CountFilesFromDirectory + 1
            sFile = Dir
        Loop Until LenB(sFile) = 0
    End If
End Function
 
Sub explosion()
'
' Macro enregistrée le 03/11/2007 par Noob
 
    nb_slide = ActivePresentation.Slides.Count
    
    For i = 1 To nb_slide
    ActivePresentation.Slides(i).Export "explosion/slide_essai" & i, "ppt"
    Next i
    
    MsgBox "PowerPoint explosé, congratulation"
 
End Sub
 
 Private Sub reconstitué()
 
    nb_fichier = CountFilesFromDirectory("explosion", "*.ppt")
    Dim pptDoc As Presentation
    Set pptDoc = Application.Presentations.Open(FileName:="explosion/slide_essai1.ppt")
  ' InsertFromFile(FileName, Index, SlideStart, SlideEnd)
     
     For i = nb_fichier To 2 Step -1
     pptDoc.Slides.InsertFromFile "explosion/slide_essai" & i & ".ppt", 1, 1, 1
     Next i
           
     pptDoc.SaveAs "reconstitué"
     pptDoc.Close
            
           MsgBox "PowerPoint reconstitué, congratulation"
End Sub
 

Il faut crée un repertoire "explosion" (ceci n'est pas la derniere version de mon code car elle se trouve a mon taff). Je vous envoi sa lundi

[Monnier]

Bon voici ma derniere version avec tjs le meme bug ...
Si quelqu'un pouvais contribué a le faire fonctionner sans le probleme des masques.

[ouisansdoute]

Bonjour,

Dans le diaporama macro explose.ppt, je ne vois qu'un seul masque de défini et ce n'est pas un masque de titre.

Or tes diapos se présentent comme des masques de titre. En fait il est possible que tu aies juste appliqué une "mise en page des diapositives" pour choisir la présentation titre.

Pour voir quels sont les masques définis : menu Affichage/Masque/masque des diapositives. les masques définis apparaissent sur le bandeau de gauche.

Lorsque je rajoute un masque de titre dans ton diapo (ce qui me fait deux masques) ils demeurent après éclatement dans chacun des diaporamas et je les retrouve également dans le diapo reconstitué.



Lorsque je crée un masque titre : et que je

[Monnier]

et que tu?? lol

[Monnier]

voila je remonte un peu se topic... car j ai envie de me remettre a la recherche de se probleme et pourquoi pas essayer par la suite de devlopper un petit programme en VB pure sans ouvrir powerpoint

[Philippe JOCHMANS]

Bonjour

Je viens de lire ta discussion, avant d'aller plus loin, je te conseille de lire cet article http://argyronet.developpez.com/offi...nt/extractpps/

Cela pourra t'aiguiller, pour la réalisation de quelque chose de générique.

Starec

[Monnier]

oui j ai lu c'est en effet interessant pour la suite du programme mais tant que le probleme de masque persiste je ne veux pas me lancer plus loin