2012-09-22 18 views

risposta

9

Tim ha fornito la risposta. È possibile utilizzare qualcosa del tipo:

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 
+0

Grazie mille! Funziona ... ! – Andrei20193