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