Forum - Questions générale - Sujet n°666

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 31/05/2013 : 00:14  Sujet n° 666  Creation diaporama PowerPoint avec VBA

le 13/03/2013 : 14:10
par flomen

Anonyme

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 : xhtml
Function 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
Ecrire à flomen  sujet clos  Haut
Réponse n° 1
--------
le 13/03/2013 : 15:10
par 3Stone

3Stone

Administrateur

Bonjour,

Pour copier le contenu d'un "controle", je me souvient de ceci qui commence à dater, c'est sûr wink

Cordialement,
Pierre(3stone)
  clos par 3Stone le 31/05/2013 : 00:14  Haut
Réponse n° 2
--------
le 14/03/2013 : 13:28
par flomen

Anonyme

visiteur
Avec l'affichage d'un report (Graphique) il n'est pas possible de faire un SetFocus et de faire un copié
Merci
  clos par 3Stone le 31/05/2013 : 00:14  Haut
Réponse n° 3
--------
le 16/03/2013 : 22:48
par 3Stone

3Stone

Administrateur

Bonjour,

Je n'ai pas essayé, mais ceci semble répondre à ce que tu cherches...

Cordialement,
Pierre(3stone)
  clos par 3Stone le 31/05/2013 : 00:14  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut