Написать скрипт, который запускает макрос в PowerPoint. Макрос запускает презентацию на выполнение

Как ни странно, но навскидку готовое решение "нагуглить" в явном виде сложно. Возможно, проблема в том, что возникает путаница в терминах VBscript и VBA. Однако ответ довольно легко выстраивается, если знать, как работает автоматизация приложений на примере MS Word. Примеров полно в англоязычной части SO.

Чтобы не забыть, в форме памятки выложу здесь пример.

Dim msApp,msDoc

Set fso = CreateObject("Scripting.FileSystemObject")

 MsFile = fso.GetParentFolderName(WScript.ScriptFullName) & "\Presentation1.pptm"

  Set msApp = CreateObject("Powerpoint.Application") 
  msApp.Visible = true
  Set msDoc =  msApp.Presentations.Open(MsFile)

  msApp.VBE.ActiveVBProject.VBComponents.Item("Module1").Activate
  msApp.Run "Macros1"
  msApp.Quit 

 Set msDoc = Nothing 
 Set msApp = Nothing 
 Set fso = Nothing