All posts tagged PowerPoint

Générer automatiquement un document PowerPoint

Voici un exemple de code pour générer automatiquement un document PowerPoint. Bien entendu, nous pourrons générer des documents PowerPoint à partir de bases de données Excel.

Sub GenerationPowerPoint()
'programme de génération d'un document Powerpoint à partir d'un modèle
 
'instanciantion PowerPoint (ajouter la référence Microsoft PowerPoint 1x.xx Library
'dans éditeur VBA menu Outils - Référence
Dim MonPowerPoint As New PowerPoint.Application
MonPowerPoint.Visible = True
 
'ouverture de la présentation modèle (1ere diapositive titre, 2ème diapositive modèle des autres diapos)
Dim MaPresentation As PowerPoint.Presentation
Set MaPresentation = MonPowerPoint.Presentations.Open2007("D:\MonModele.pptx")
 
'on recopie le modele (MonModele) pour créer des diapositives supplémentaires
'modèle composé d'un titre et d'un cadre de texte
Dim MaDiapositive As PowerPoint.Slide
Dim MonModele As PowerPoint.CustomLayout
Set MonModele = MaPresentation.Slides(2).CustomLayout
Set MaDiapositive = MaPresentation.Slides.AddSlide(3, MonModele)
 
'pour activer une diapositive avec son numéro de page
Set MaDiapositive = MaPresentation.Slides(2)
 
'saisie du titre de la diapositive
MaDiapositive.Shapes.Title.TextFrame.TextRange.Text = "Titre diapo"
 
'saisie de 2 lignes dans le cadre principal de la diapositive
'attention, ici on choisit le 3ème cadre à titre d'exemple, à adapter
With MaDiapositive.Shapes(3).TextFrame.TextRange
.InsertAfter ("ligne 1")
.InsertAfter (Chr(10))
.InsertAfter ("ligne 2")
End With
 
'ajout et saisie d'un cadre avec texte
Set MonText = MaDiapositive.Shapes.AddShape(msoShapeRectangle, 300, 300, 250, 140)
With MonText.TextFrame.TextRange
.Text = "exemple de texte en arial"
.Font.Name = "arial"
End With
 
End Sub
Top
Page 1 of 1

Contactez-nous contact@expert-data.fr

EXPERT data, solutions pour TPE/PME et grands comptes