Thank you!
Code: Select all
Dim Dummy()
Dim Url As String
Dim outDoc, outView, outSlides As Object
' Create blank presentation
Url = "private:factory/simpress"
outDoc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
outView = outDoc.getCurrentController()
outSlides = outDoc.DrawPages