/* Gruppe 1 /* Termin 5 - Programm 1 */ */

powerpoint = .oleobject~new("PowerPoint.Application")
powerpoint~Visible = .TRUE
presentation = powerpoint~Presentations~Add()
slide = presentation~Slides~Add(1, 11)
title = slide~Shapes~Title~TextFrame~TextRange
title~Text = "Titel der Folie"
textBox = slide~Shapes~AddTextbox(1, 300, 300, 500, 300)
textBox~TextFrame~TextRange~Text = "Hallo Welt!"
presentation~SaveAs("C:\Users\flori\OneDrive\Documents\SBWL BIS\PowerPoint_Beispiel.pptx")
powerpoint~Quit()