Export Excel -> PPT: Ajouter Slide masque personalisé

Bonjour,

voici le probleme, il faut ajouter un slide avec un masque enregistré, si cela peut se faire avec les noms et non index ca serait super.

Merci !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function bPptAddSlides(oPptDoc As Object, sDesign As String, sLayout As String) As Boolean
 
bPptAddSlides = True
 
On Error GoTo errorHandler
oPptDoc.Slides.Add Index:=oPptDoc.Slides.Count + 1, Layout:=oPptDoc.Designs(1).SlideMaster.CustomLayouts(1)
 
 
Exit Function
errorHandler:
    bPptAddSlides = False
End Function