Discussion :

[thilamb]

Bonjour à tous,
Je souhaiterais coller une diapositive sous forme d'image (metafichier amélioré?) dans une shape d'une diapositive d'une autre présentation. Je veux faire ça en VBA car je répète l'opération x fois.
le collage ne pose a priori pas de pb, c'est le collage dans la forme sélectionnée qui me bloque. Apparemment le PasteSpecial n'est pas dispo dans une shape ou alors il me manque un morceau de code.
Merci pour votre aide toujours précieuse.
Cdt
Th

[Invité]

Bonjour

Pourquoi une forme sélectionnée ? Tu veux faire cela en mode création ?

As-tu commencé à faire un bout de code ?

Philippe

[thilamb]

Voilà ce que j'ai fait:
L'objectif est de générer une présentation en mode portrait avec deux images de diapo par page et des marges plus petites que ce que propose ppt en impression mode document.
Je sais c'est tordu mais je n'ai rien trouvé d'autre à ce jour.
Mon code (très primaire) fonctionne jusqu'au "paste" en rouge

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
Sub Printpres2()
'

 Dim SOURCE, CIBLE As Presentation
 Dim CHEM As String
 Dim NBS, NBP As Integer
    
    Set SOURCE = Application.ActivePresentation
    CHEM = ActivePresentation.Path
    NBS = SOURCE.Slides.Count
    NBP = Round(NBS / 2)
    
    Presentations.Open FileName:="....\impress2.ppt", ReadOnly:=msoFalse
    ActivePresentation.SaveAs CHEM & "\" & SOURCE.Name & "_prt"
    Set CIBLE = ActivePresentation
    For J = 1 To NBP - 1
        CIBLE.Slides(J).Duplicate
    Next
        
    
    
    For i = 1 To SOURCE.Slides.Count
        gla = Round((i + 0.1) / 2)
        SOURCE.Slides(i).Copy
        CIBLE.Slides(gla).Shapes(1).pastepecial
        SOURCE.Slides(i + 1).Copy CIBLE.Slides(Int(i / 2)).Shapes(2)
        i = i + 2
    Next
    
End Sub

[Invité]

Bonjour

Personnellement je ne passerais pas par le copier coller, mais par la sauvegarde de la diapo en image :

http://powerpoint.developpez.com/faq...=V-D#SaveImage

Et ensuite par le remplissage de la forme avec cette image.

Philippe

[thilamb]

effectivement c'est une option. Au moins, je pense que je sais faire.
Je vais essayer.
Une suggestion pour le format de l'image ? JPG, BMP... ?
Merci pour la suggestion.
Cdt
Th

[thilamb]

Ca fonctionne Nickel. Super
Il faudrait maintenant que je lance la boite de dialogue d'impression (j'ai trouvé) et que la macro reprenne la main après que l'utilisateur ait imprimé (je sais faire dans excel mais là je cale). C'est possible?
Merci de nouveau
ThL