Hallo Leute,
versuche verzweifelt eine Powerpointfolie aus Excel zu generieren:
Sub PowerPointAufrufen()
Dim PowerPoint As Object
Dim ppslide As PowerPoint.slide
Dim ppres As PowerPoint.Presentation
Dim ppapp As PowerPoint.Application
Set PowerPoint = CreateObject("Powerpoint.Application")
PowerPoint.Visible = True
PowerPoint.Presentations.Open ("xxx")
Set objCL = objP.SlideMaster.CustomLayouts.Add(1).CustomLayouts(1).Name = "Vorlage"
Leider ist bei der letzten Codezeile irgendwas falsch. Kann mir jemand helfen?
Gruß
|