Не удается открыть презентацию PowerPoint pps или файл ppsm в powerpoint 2013

Question

У меня возникли проблемы с момента обновления с офиса до 2010 года. В частности, что касается PowerPoint. У меня есть требование, чтобы открыть презентацию шоу .pps файлов или .ppsm, который используется, чтобы открыть штраф в офисе 2010, используя следующий код

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 

С обновлением до 2013 года в офис презентации шоу-файл теперь открывает файл в рабочем столе Режим.

Я пробовал различные настройки доверия без каких-либо успехов. Любая помощь была бы с благодарностью принята

Answer 1

В качестве возможного обходного пути вы можете преобразовать .pps в. PPTX с использованием 3-й службы партии, такие как https://cloudconvert.com/api