OpenFileDialog VBA (Powerpoint) 初始目录
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/12537439/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
OpenFileDialog VBA (Powerpoint) Initial Directory
提问by Andrei20193
回答by Daniel
This is nearly copied from the Powerpoint VBA help. It uses FileDialoginstead of OpenFileDialog(which I had difficulty finding in relation to PowerPoint). It sets the InitialFileNameto C:\so that it will prompt in that location. Just place this in a module, it should be easy to modify to your specific needs:
这几乎是从 Powerpoint VBA 帮助中复制的。它使用FileDialog而不是OpenFileDialog（我很难找到与 PowerPoint 相关的）。它将 设置为InitialFileName，C:\以便在该位置提示。只需将它放在一个模块中，它应该很容易根据您的特定需求进行修改：
Sub fileDialogExample()
'Declare a variable as a FileDialog object.
Dim fd As FileDialog
'Declare a variable for the directory path.
Dim directory As String
'Set the directory path
directory = "C:\"
'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'Declare a variable to contain the path
'of each selected item. Even though the path is aString,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant
'Use a With...End With block to reference the FileDialog object.
With fd
'Change the initial directory\filename
.InitialFileName = directory
'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the button.
If .Show = -1 Then
'Step through each string in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems
'vrtSelectedItem is aString that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example displays the path in a message box.
MsgBox "The path is: " & vrtSelectedItem
Next vrtSelectedItem
'The user pressed Cancel.
Else
End If
End With
'Set the object variable to Nothing.
Set fd = Nothing
End Sub
