PP = .OLEObject~New("PowerPoint.Application")
PP~Visible = .TRUE

PP~Presentations~Add~Slides~Add(1, 1) 
FirstSlide = PP~ActivePresentation~Slides(1)
FirstSlide~Shapes(1)~TextFrame~TextRange = "Gruppe 3" -- das steht in der ersten Zeile
FirstSlide~Shapes(2)~TextFrame~TextRange = "Christoph, Elif und Tobias"

ActivePresentation = PP~ActivePresentation
ActivePresentation~Slides~Add(2, 3) -- append: second Slide
SecondSlide = PP~ActivePresentation~Slides(2)
SecondSlide~Shapes(1)~TextFrame~TextRange = "Hausuebung 4"
SecondSlide~Shapes(2)~TextFrame~TextRange = "Business Programming"
SecondSlide~Shapes(3)~TextFrame~TextRange = "Kurs 1"

SlideCount = ActivePresentation~Slides~Range~Count -- get amount of Slides
say "Unsere Praesentation hat" SlideCount "Slides"
do SlideNumber = 1 to SlideCount -- go through each Slide
 ShapeCount = ActivePresentation~Slides(SlideNumber)~Shapes~Range~Count 
end