Impression 2 diapos par page avec lignes

**qrpmmi** · 12/06/2009, 10h52

Bonjour,

J'utilise ppt 2007 et souhaite imprimer deux grandes diapos par page avec des lignes sur le côté (même structure que proposée avec 3 diapos.)
J'ai entendu dire que c'était possible mais ne trouve pas la solution.

J'ai essayé en passant par Word: dans un premier temps, il m'imprime toujours 3 diapos par page, cependant je peux modifier les cellules du tableau de manière à n'obtenir que 2 diapos par pages... le problème est que mes diapos restent de petite taille (et je ne souhaite pas modifier image par image la taille des diapos...)

Merci d'avance pour votre aide!
Cordialement,

qrp

Invité · 14/06/2009, 05h15

Bonjour et bienvenue sur le forum Office de DVP

En effet, il n'est pas possible de mettre 2 diapositives.

Voici un code que j'avais commencé à réaliser il y a quelques temps, mais que je n'avais pas fini par manque de temps (et de compétences sur VBA Word).

Code :

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

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
 
Public Sub ExportWord()
 
    ' déclaration des variables
    Dim sld As Slide
    Dim WordAppli As Word.Application
    Dim WordDocument As Word.Document
 
    ' affectation
    Set WordAppli = CreateObject("Word.Application")
 
    ' travail sur Word
    WordAppli.Visible = True        ' on affiche Word
    ' on ajoute un document à l'application Word qui est vide
    Set WordDocument = WordAppli.Documents.Add
    Set WordDocument = WordAppli.ActiveDocument
 
    ' on va mainteant copier les diapositives dans Word
    For Each sld In ActivePresentation.Slides
        sld.Copy
        WordAppli.Activate
        WordDocument.Activate
        With WordAppli.Selection
            .PasteSpecial , False, wdInLine, , 14
            .Collapse (wdCollapseEnd)
            .TypeParagraph
        End With
 
 
    Next sld