Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1174 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Programmation VB Power point

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Programmation VB Power point

n°908501
mannix_750​17
Posté le 26-11-2004 à 14:41:29  profilanswer
 

Salut,  
 
Je cherche des trucs de programmation en vb Power point.  
A mon taff, on m'a demandé d'automatiser la mise à jour d'un fichier Poxer Point (PPt).Pour ce faire,je faisais les graphs sous excel, je faisais une macro qui rentrait les données (à partir d'une autre base) et après j'activé l'application Power point et j'avais trouvé comment copier coller en image ma page de graph (feuille) dans PPT.  
 
Pour ceux que ça interresse, il faut avant cocher dans les références : "Microsoft Power point Object Library"
 
Sub Excel_PP()  
 
Dim PPApp As PowerPoint.Application  
Dim PPPres As PowerPoint.Presentation  
Set PPApp = CreateObject("Powerpoint.Application" )  
'la on ouvre Power Point
With PPApp  
    .Visible = True  
    .Activate  
End With  
 
'on ouvre le fichier PPT
'chemin = ton dossier  
PPApp.Presentations.Open Filename:=chemin & "maquette ppt.ppt"  
Set PPPres = PPApp.Presentations.Item(1)  
 
    'ici on copie la plage de donnée de excel
    Range("A1:F27" ).Select  
    Selection.CopyPicture xlPrinter  
    'on active le slide du ppt
    PPPres.Slides(1).Select  
    PPPres.Slides(sd).Shapes.Paste  
    n = PPPres.Slides(sd).Shapes.Count  
    'comme on vient de coller un truc le numéro de l'objet que l'on à fait est le dernier, il faut donc le trouver
    PPPres.Slides(1).Shapes.Item(n).Select  
    'tout ca c'est pour mettre l'image en haut à gauche du slide.
    PPPres.Slides(1).Shapes.Item(n).LockAspectRatio = msoTrue  
    PPPres.Slides(1).Shapes.Item(n).Left = 0# ' bord gauche  
    PPPres.Slides(1).Shapes.Item(n).Top = 480# 'bord haut  
    PPPres.Slides(1).Shapes.Item(n).ZOrder msoSendToBack  
 
'on sauve le ppt  
PPPres.Save  
 
End Sub  
 
Le problème c'est que tes graphs ainsi collés sont des images, et on ne peux plus les modifier.  
Le truc c'est que maintenant la personne pour qui je fais ça, elle veut pouvoir modifier les graphs... et donc il faut modifier des graphs dans le fichier power point.
Et ça je n'ai aucune idée de comment on fait.  
 
Merci de votre aide..  
 
Yann  

mood
Publicité
Posté le 26-11-2004 à 14:41:29  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Programmation VB Power point

 

Sujets relatifs
aide programmation vbprogrammation port serie
Programmation avec extension HFR firefoxInvision power board - Admin ?
programmation carte à puceComment démarrer en programmation ?
Scripts vba sur power pointaide sur programmation pascal
Probleme en programmation, langage C !!! Aidez moi svp!!! 
Plus de sujets relatifs à : Programmation VB Power point


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR