Copier image de excel à powerpoint
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:
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
