Discussion :

[nerok]

Bonjour à tous,

Je suis en train de créer un Userform pour parcourir en miniatures des fichiers ppt et insérer des diapositives dans la présentation en cours.
Dans la pratique, je souhaiterais donc me rapprocher de la fonction "Insérer une diapositive à partir de..." déjà présente dans Powerpoint.

J'ai commencé à faire un formulaire mais je suis coincé sur la partie visualisation des miniatures.
J'ai suivi ce tuto mais ça me semble fastidieux de passer par un fichier image pour chaque slide.
J'ai vu pas mal de messages où l'on disait que la création d'une "trieuse de diapositives" en vba avait déjà été abordée sans pour autant trouver quoi que ce soit.

Bref, je sollicite donc votre aide sur le sujet.
Si besoin, je joins moins fichier ppt

[Invité]

Bonjour

Personnellement la solution est évoquée est la seule que j'ai trouvé

Philippe

[nerok]

Bonjour à tous,

Je poursuis ce projet et je coince maintenant une fois la slide insérée dans ma présentation.
J'essaie de conserver la mise en forme de la diapo source avec le code suivant :

Code :

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

1
2
3
4
5
6
7
InsertedSlide = ActiveWindow.View.Slide.SlideIndex
With ActivePresentation.Slides(InsertedSlide)
.Design = PptSource.Slides.Item(SlideSourceIndex).Design
.ColorScheme = PptSource.Slides.Item(SlideSourceIndex).ColorScheme
.CustomLayout = PptSource.Slides.Item(SlideSourceIndex).CustomLayout
.ApplyTheme (PptSource)
End With

Le problème, c'est que la mise en forme n'est pas conservée.
J'ai d'abord essayé en ajoutant le même type de ligne avec la propriété .Background mais j'obtiens une erreur de compilation : 'Argument non facultatif'
Je me dis qu'il y a peut-être un problème de masque mais la propriété .Master génère aussi une erreur.
Qu'en pensez-vous ? Est-ce que j'aurais oublié quelque chose ?
Merci pour votre aide