Discussion :

[Samus92500]

Bonjour,
J'ai importé des graphiques crées sous excel a l'aide du code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' On déclare une variable de type Application PowerPoint
  Dim ppt As PowerPoint.Application
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  ' Et on lui dit de quelle présentation il s'agit :
  Set Pres = ppt.Presentations.Open(Filename:="C:\Users\ahurvoy\My Documents\2eme semaine\brouillon\final.pptx")
  ' On active, sélectionne et copie le Graphique "Mon graph" de Excel :
  Sheets("feuille où se trouve mon Graph").ChartObjects("Mon graph").Activate
  ActiveChart.ChartArea.Select
  ActiveChart.ChartArea.Copy
  ' Et on le colle dans la première diapositive de la présentation :
  Pres.Slides(1).Shapes.Paste

Etant débutant en VBA, j'ai 6 graphiques a faire figurer sur le meme slide powerpoint. J'itère donc le code précédent, Le probleme est que j'aimerai pouvoir placer mes graph où je le souhaite sur power point à l'aide d'un code vba. En gros je souhaiterais que lorsque je lance ma macro cela importe mes graph dans mon power point dans le slide numéro 1 et directemeent placé où je le souhaite.

Merci par avance pour les réponses que vous pourrez m'apporter.

[Samus92500]

J'ai finalement trouvé, pour les intéressé voici le code en entier qui permet d'importer et de dimensionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
' On déclare une variable de type Application PowerPoint
  Dim ppt As PowerPoint.Application
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  ' Et on lui dit de quelle présentation il s'agit :
  Set Pres = ppt.Presentations.Open(Filename:="C:\enplacement du fichier")
 
 
 
  ' On active, sélectionne et copie le Graphique "mon graph" de Excel :
  Sheets("page où se trouve le graph").ChartObjects("mon graph").Activate
  ActiveChart.ChartArea.Select
  ActiveChart.ChartArea.Copy
  ' Et on le colle dans la première diapositive de la présentation :
  Pres.Slides(1).Shapes.Paste
 
  ' on met en forme le graph
  With Pres.Slides(1).Shapes(1)
.Name = "monGraph" 'personnaliser le nom de l'image insérée
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur image
.Width = 400 'largeur image
End With