Discussion :

[geutlastar]

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 :

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
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

[Ben_L]

Bonjour,

Dans Powerpoint, il est possible de déplacer un ensemble de Shapes à l'aide des méthodes IncrementLeft et IncrementTop de l'objet ShapeRange.
Par exemple :

Code :

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

PptDoc.Slides(2).Shapes.Range.IncrementLeft -5

Attention toutefois :

• Les Shapes présentes sur le template de la diapositive seront aussi déplacées
• Il faut réussir à déterminer l'incrément...

Cordialement

[geutlastar]

Bonjour Ben_L,

Merci pour la réponse rapide.

Je viens de faire un test et cela fonctionne

J'ai réussi à compter le nombre de Shapes sur Excel et sur PowerPoint.

Il ne me reste plus qu'a répéter l'action sur les différents éléments. Je vais faire une boucle.