VBA Powerpoint. Wie wird der aktuelle Verzeichnispfad der Datei zu einer Zeichenfolge in VBA abgerufen?

Question

VBA Powerpoint. Wie kann ich das aktuelle Verzeichnis der Umgebung einstellen?

Ich habe auch versucht, diesen Code:

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

Aber ist sagt: Object required

Bitte helfen Sie mir, damit es funktioniert ...

Answer 1

Tim die Antwort zur Verfügung gestellt hat. Sie könnten etwas wie:

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