Il va s'agir de copier un graphique depuis une feuille Excel dans une présentation PowerPoint.
Pour faire fonctionner ce programme, il va falloiir que vous créez la configuration suivante sur votre machine :
Fruit | Poids |
Banane | 34 |
Peche | 54 |
Abricot | 65 |
Dans le module, copiez la macro suivante :
Sub TestPowerPoint()
' 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:\Mes
Documents\MaPresentation.ppt")
' On active, sélectionne et copie le
Graphique Graphique 1 de Excel :
ActiveSheet.ChartObjects("Graphique 1").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 enregistre la présentation PowerPoint
:
Pres.Save
' Et on quitte PowerPoint proprement :
ppt.Quit
Set ppt = Nothing
End Sub
Cette macro va :
Une fois que vous avez lancé la macro, pour voir si elle a fonctionné, il vous suffit d'ouvrir ensuite manuellement PowerPoint et MaPresentation.ppt