OpenFileDialog VBA (Powerpoint) 初始目录

使用VBA编程语言，可以在PowerPoint中创建自定义功能和操作。其中，OpenFileDialog是一个非常有用的功能，它可以让用户选择文件并打开它们。在使用OpenFileDialog之前，我们可以设置初始目录，以便打开对话框时显示特定的文件夹。

vba
Sub OpenFile()
    Dim dlg As FileDialog
    Dim selectedFile As Variant
    
    '创建一个OpenFileDialog
    Set dlg = Application.FileDialog(msoFileDialogOpen)
    
    '设置初始目录
    dlg.InitialFileName = "C:\MyFolder"
    
    '显示对话框
    If dlg.Show = -1 Then
        '获取用户选择的文件
        For Each selectedFile In dlg.SelectedItems
            '打开文件
            Presentations.Open selectedFile
        Next selectedFile
    End If
    
    '释放资源
    Set dlg = Nothing
End Sub