VBA Powerpoint. ¿Cómo obtener la ruta del directorio actual del archivo a una cadena en VBA?

Question

VBA Powerpoint. ¿Cómo puedo configurar el directorio actual del entorno?

También probé este código:

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

Pero es dice: Object required

me puede ayudar a hacer que funcione ...

Answer 1

Tim ha proporcionado la respuesta. Podría usar algo como:

Sub test() 
    Dim sPath As String 
    sPath = ActivePresentation.Path 
    If Len(sPath) > 0 Then 
     MsgBox ActivePresentation.Name & vbNewLine & "saved under" & vbNewLine & sPath 
    Else 
     MsgBox "File not saved" 
    End If 
End Sub