Déplacement Shapes de Excel vers Powerpoint
Bonjour à tous,
Je cherche à copier coller puis positionner un ensemble de Shapes (Environs 250) depuis Excel vers PowerPoint. Pour information, le code se situe dans un module sous Excel.
J'arrive sans problème à copier coller l'ensemble des Shapes de Excel vers PowerPoint. Mais je n'arrive pas à déplacer la sélection dans le Powerpoint
Ci-dessous mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub Copie()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Set Tdb = ThisWorkbook.Sheets("POC").Range("A1:I22")
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open("M:\Projet_Données_internationales\POC\POC.pptx") 'ouverture fichier ppt
ThisWorkbook.Sheets("POC").Shapes.SelectAll
Selection.Copy
PptDoc.Slides(2).Shapes.Paste
'With PptDoc.Slides(2).Shapes.SelectAll
'.Left = 38 'position horizontale dans le slide
'.Top = 120 'position verticale dans le slide
'End With
End Sub |
En commentaire j'essaye de faire bouger la sélection mais cela ne fonctionne pas.
Merci pour votre aide
