VBA Powerpoint. How can i set environment current directory?

I also tried this code:

Sub test()
Dim sPath As String
sPath = ActiveWorkbook.Path
MsgBox sPath
End Sub

But is says: Object required

Please help me to make it work ...

vba powerpoint
Edit
Report