Ok, I have this code:
No way that it works. (error 438 on the ", ocust" part)
Thank you for your answers
Code:
Dim ocust As CustomLayout
Set ocust = PowerPoint.Application.ActivePresentation.SlideMaster.CustomLayouts(17) 'I want the layout n. 17
PowerPoint.Application.ActivePresentation.Slides.Add PowerPoint.Application.ActivePresentation.Slides.Count + 1, ocust
No way that it works. (error 438 on the ", ocust" part)
Thank you for your answers