Excel PPT avec feuille de calcul
Bonjour,
J'ai un classeur Excel avec des données à l'intérieur.
J'ai un slide ppt, avec une feuille de calcul dedans. J'aimerais copier mes données Excel à l'intérieur du ppt. (collage spécial objet feuille de calcul microsoft excel).
J'arrive à copier mes données dans ppt mais pas dans la feuille Excel de ppt.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Sub TestPowerPoint()
Dim Xlwkb As Excel.Workbook
Dim Xlwks As Excel.Worksheet
Dim ppt As PowerPoint.Application
Dim Pres As PowerPoint.Presentation
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
Set Pres = ppt.Presentations.Open(Filename:="L:\Presentation1.ppt")
Set Xlwkb = ThisWorkbook
Set Xlwks = Xlwkb.ActiveSheet
Xlwks.Range(Xlwks.Cells(1, 1), Xlwks.Cells(20, 9)).Copy
Pres.Slides(1).Shapes.Paste ppPasteMetafilePicture
Pres.SaveAs ("L:\test.ppt")
ppt.Quit
Set ppt = Nothing
End Sub |
J'ai beau chercher je ne trouve pas comment faire.
Merci de votre aide
