如何将VBA创建的新PPT演示文稿添加至最近文件列表？

我们的用户发现，工具栏中用于创建新演示文稿的按钮，虽能生成正确内容并保存至指定路径，但不会将这些新演示文稿添加到Recent Files（最近文件）列表。例如运行以下代码后，会在默认保存路径创建新的test.pptx文件，但即使用户编辑、保存并关闭该文件，它也不会出现在最近文件列表中：

Public Sub testRecentFiles()

    Dim test1 As Presentation
    Dim presPath As String
    
    presPath = Environ("USERPROFILE") & strDEFAULT_SAVE_PATH & "test.pptx"
    
    Set test1 = Application.Presentations.Add
    test1.SaveAs presPath

    test1.Close
    Application.Presentations.Open presPath, msoFalse, msoFalse, msoTrue

End Sub

我尝试添加最后两行代码关闭并重新打开文件，期望触发最近文件列表更新，但并未生效。而从文件资源管理器手动打开test.pptx时，它会正常出现在PowerPoint的最近文件列表中，说明VBA代码默认不会触发填充最近文件列表的事件。

这是个问题：我们的工具栏经常创建新演示文稿，有时还需在用户无工作文件夹写入权限时，将文件移至默认保存路径，希望能在新演示文稿保存后触发最近文件列表的更新。

调研发现Excel对象模型具备RecentFiles方法，允许VBA开发者将任意文件添加至最近文件列表，类似以下在Excel中可行的代码，但在PPT中无法生效——因为PPT对象模型似乎没有RecentFiles方法：

Application.RecentFiles.Add presPath

由于PowerPoint VBA对象模型未提供直接操作最近文件列表的原生方法，可通过以下两种可靠方式实现需求：

方法1：利用Windows Shell对象同步最近文件 #

通过Shell.Application的AddToRecentDocs方法，可将指定文件添加到系统全局最近文档列表，PowerPoint会自动同步该内容到自身的最近文件列表，效果与手动打开文件一致：

' 自定义方法：将指定路径的文件添加到最近文件列表
Public Sub AddToPPTRecent(presFullPath As String)
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    shellApp.AddToRecentDocs presFullPath
    Set shellApp = Nothing
End Sub

将此方法集成到原代码中，在保存并关闭演示文稿后调用即可：

Public Sub testRecentFiles()

    Dim test1 As Presentation
    Dim presPath As String
    
    presPath = Environ("USERPROFILE") & strDEFAULT_SAVE_PATH & "test.pptx"
    
    Set test1 = Application.Presentations.Add
    test1.SaveAs presPath

    test1.Close
    ' 调用方法添加到最近文件列表
    AddToPPTRecent presPath

End Sub

方法2：直接操作注册表（不推荐） #

PowerPoint的最近文件列表存储在注册表中（Office 365/2021路径为HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\PowerPoint\Recent Files），可通过VBA读写注册表添加条目，但该方法存在版本兼容性问题，且需要处理注册表权限，通用性不如方法1。

注意事项 #

• 确保传入AddToPPTRecent的路径是完整绝对路径，否则无法被识别。
• 该方法会同时更新系统的「最近使用的项目」，符合用户手动操作的行为逻辑。

内容的提问来源于stack exchange，提问作者egerz