Yeni sunum için aşağıdaki kodu deneyebilir misin?
Kod:
Sub NewPPT()
Dim Obj1 As Object
Set Obj1 = CreateObject("powerpoint.application")
Obj1.Presentations.Add
Obj1.Visible = True
End Sub
Mevcut bir sunuyu açmak içinde aşağıdaki kodu deneyebilirsin.
Kod:
Sub OpenPPT()
Dim Obj1 As Object
Set Obj1 = CreateObject("powerpoint.application")
Obj1.Presentations.Open Filename:="C:\accesstr.ppt"
Obj1.Visible = True
End Sub