1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Questions générale
Sujet n° 666 |
Creation diaporama PowerPoint avec VBA |
le 13/03/2013 : 14:10 par flomen
visiteur |
Bonjour,J'ai presque réussi à créer un diaporama avec Access VBA, cependant je n'arrive pas à trouver la solution pour inclure un Graphique (Report)Voici le code testé, il me reste à trouver la solution pour mettre (Copier) le graphique dans le presse papier, le coller (Paste) fonctionne bienMerci pour vos suggestions Code : xhtmlFunction NouvellePresentation() Dim PptApp As PowerPoint.Application, pptDoc As PowerPoint.Presentation Dim Diapo As PowerPoint.Slide, Sh As PowerPoint.Shape, Cs1 As ColorScheme, NbShpe As Integer Set PptApp = CreateObject("Powerpoint.Application") Set pptDoc = PptApp.Presentations.Add With pptDoc .Slides.Add Index:=1, Layout:=ppLayoutBlank '--- Ajoute un Slide Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=100, Width:=150, Height:=60) Sh.TextFrame.TextRange.Text = "insère la valeur de la Cellule A1 dans une zone de texte" Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255) 'Modifie la couleur du texte Set Diapo = .Slides.Add(Index:=2, Layout:=ppLayoutBlank) '--- Ajoute un nouveau slide et le positionner en 2eme position <font color="#ff0000"><b><u>' >>>>>>>>>>>>>>>>>>>Comment alimenter le presse papier ?</u></b></font> Diapo.Shapes.Paste 'collage dans la 2eme diapositive NbShpe = Diapo.Shapes.Count 'Compte le nombre de shapes dans la diapositive: le dernier objet inséré correspond à l'index le plus élevé 'Renomme et met en forme l'objet collé With Diapo.Shapes(NbShpe) .Name = "monGraph" 'personnalise le nom .Left = 50 'définit la position horizontale dans le slide .Top = 50 'définit la position verticale dans le slide .Height = 620 'hauteur .Width = 620 'largeur End With Set Cs1 = .ColorSchemes(3) Cs1.Colors(ppBackground).RGB = RGB(225, 233, 200) .SlideMaster.ColorScheme = Cs1 End With pptDoc.SaveAs FileName:="D:\PrésentationPPt.ppt" pptDoc.Close PptApp.Quit MsgBox "Opération terminée." End Function
|
|
|
Réponse n° 1 -------- le 13/03/2013 : 15:10 par 3Stone
Administrateur
|
Bonjour,
Pour copier le contenu d'un "controle", je me souvient de ceci qui commence à dater, c'est sûr
Cordialement, Pierre(3stone) |
|
|
Réponse n° 3 -------- le 16/03/2013 : 22:48 par 3Stone
Administrateur
|
Bonjour,
Je n'ai pas essayé, mais ceci semble répondre à ce que tu cherches...
Cordialement, Pierre(3stone) |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|