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 ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 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

[Ormonth]

Bonjour,
Bon le résultat est le même avec Copy ou InsertFromFile, quand on fait une copie manuelle, on a un petit pop-up qui nous permet d’opter pour conserver la mise en forme d’origine, ce qui fonctionne bien et on constate, fort logiquement, qu’il a rajouté un masque à la collection de la présentation.

Où ça va moins bien, c’est que l’enregistreur de macro ne prend aucune trace de cette manip et que l’emploi de FollowMasterBackground and Cie précisé dans l’aide n’a pas plus d’effet…

Comme on le verra plus loin avec l’avis d’un Expert, il n’y a pas de solution de base à première vue.

En plus, j’avais pensé à une pirouette, mais on a le même genre de problème avec Applytemplate.

Je te communique donc le fil que j’ai trouvé, il y la solution normalement, à toi de voir si ça solutionne ton problème…

PowerPoint 2002 supports multiple masters, it's been a long requested feature. If you copy and paste slides thru the user interface, you get a smart tag option which gives you an option to retain source formatting of the slides being pasted/inserted. The smart tags cannot be manipulated in any way.



The code snippet below explains how to copy slides while still retaining source formatting. Once you copy the slide, you can get a reference of the source slide design and set it to the target slide. This will add that design into the target presentation's design collection. You need to copy the color scheme of the source slide to ensure that the shape which follow the color scheme retain the same colors once copied.

Copyright ©1999-2007 Shyam Pillai, All Rights Reserved.

' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.

voir le code ici :

http://skp.mvps.org/pptxp001.htm


cordialement,

Didier