无法在powerpoint 2013中打开powerpoint演示文稿pps或ppsm文件

Question

自2010年办公室升级到2013年以来，我遇到了麻烦。特别是关于PowerPoint。我要求打开一个演示文稿显示文件.pps或.ppsm，以前在办公室使用以下代码打开罚款

Imports Microsoft.Office.Interop

Module Module1

    Sub main()

        Dim pptPres As PowerPoint.Presentation
        Dim pptApp As PowerPoint.Application
        Dim file As String

        file = "C:myfile.ppsm" 'example file/location'

        pptApp = CreateObject("PowerPoint.Application")
        pptApp.Visible = True
        pptPres = pptApp.Presentations.Open(file)

    End Sub
End Module 

自升级到Office 2013以来，演示文稿显示文件现在以桌面模式打开文件。

我尝试了各种信任设置但没有成功。我们将非常感激地提供任何帮助

Answer 1

作为一种可行的解决方法，您可以将.pps转换为。 pptx使用第三方服务，例如https://cloudconvert.com/api