वीबीए पावरपॉइंट। वीबीए में एक स्ट्रिंग के लिए फ़ाइल की वर्तमान निर्देशिका पथ कैसे प्राप्त करें?

Question

वीबीए पावरपॉइंट। मैं पर्यावरण वर्तमान निर्देशिका कैसे सेट कर सकता हूं?

मैं भी इस कोड की कोशिश की:

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

लेकिन है कहते हैं: Object required

कृपया मेरी मदद यह काम करने के लिए ...

Answer 1

टिम जवाब प्रदान की गई है। आप की तरह कुछ इस्तेमाल कर सकते हैं:

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