Création des slides PPT qui sont alimentés à partir d'Excel
Fermé
pirhanas
Messages postés
4
Date d'inscription
jeudi 3 avril 2014
Statut
Membre
Dernière intervention
21 juillet 2014
-
9 avril 2014 à 12:44
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 14 mai 2014 à 18:21
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 14 mai 2014 à 18:21
A voir également:
- Automatiser powerpoint avec excel
- Liste déroulante excel - Guide
- Visionneuse powerpoint - Télécharger - Présentation
- Formule excel - Guide
- Comment mettre une vidéo sur powerpoint - Guide
- Réparer fichier powerpoint endommagé gratuit - Télécharger - Récupération de données
3 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
9 avril 2014 à 15:50
9 avril 2014 à 15:50
Bonjour,
Voici un code qui crée une présentation ppt, qui insère un slide et dans ce slide une zone de texte. A adapter suivant les besoins:
Voici un code qui crée une présentation ppt, qui insère un slide et dans ce slide une zone de texte. A adapter suivant les besoins:
'Allez dans outils-références et cochez Microsoft PowerPoint 11.0 Object Library
Sub Inserer_texte()
Dim PptDoc As PowerPoint.Presentation
Dim Sh As PowerPoint.Shape
Dim PptApp As Variant
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
With PptDoc
'--- Ajoute un Slide
.Slides.Add Index:=1, Layout:=ppLayoutBlank
'Crée une zone de texte (AddLabel)
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=150, Height:=60)
'insère la valeur de la Cellule A1 dans une zone de texte
Sh.TextFrame.TextRange.Text = Range("A1")
'Modifie la couleur du texte
Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255)
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & "NouvellePresentation_texte.ppt"
'ferme la presentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
MsgBox "Opération terminée."
End With
End Sub
