7

VBAパワーポイント。環境の現在のディレクトリを設定するにはどうすればよいですか?

私もこのコードを試しました:

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

しかし、それは言います:Object required

それを機能させるために私を助けてください...

4

1 に答える 1

13

ティムは答えを提供しました。次のようなものを使用できます。

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
于 2012-09-23T07:26:22.140 に答える