BOnjour,

Je débute en macro excel et VBA, pour résumer, j'aimerai récupérer les images qui sont présente dans mon fichier excel et les insérer dans un fichier powerpoint.

J'ai réussi à récupérer du text mais je ne trouve pas les options pour copier les images.

un bout de 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
25
26
27
28
29
Sub RemplirPPT()
Dim c As Object
Dim shapeslide
Dim shapename
Dim shapetext
Dim nextrow
 
Set ppApp = GetObject(, "Powerpoint.application")
Set ppPres = ppApp.ActivePresentation
 
'For Each c In Feuil1.Range("a2:a" & Feuil1.Range("a" & Rows.Count).End(xlUp).Row + 1)
'shapeslide = Feuil1.Range("a" & c.Row)
'shapename = Feuil1.Range("b" & c.Row)
'shapetext = Feuil1.Range("c" & c.Row)
'friendlyname = Feuil1.Range("d" & c.Row)
'ppPres.Slides(shapeslide).Shapes(shapename).TextEffect.Text = shapetext
'Next c
 
shapename = Feuil1.Range("b2")
shapetext = Feuil1.Range("c2")
 
Feuil1.Picture("Image 2").Copy
 
ppPres.Slides(1).Shapes(shapename).TextEffect.Text = shapetext
ppPres.Slides(1).Shapes(shapename).pa
 
 
 
End Sub
Merci pour votre aide