VBS 如何判断导出视频操作完成

我正在使用vbs操作powerpoint将ppt导出为MP4视频,我想在视频导出完成后关闭ppt,想寻求判断“导出完成”的方法

ActivePresentation.SaveAs outFile, 39

Do  while  导出完成

ActivePresentation.close

Loop

到目前为止我还没有找到合适的方法,现在的实现方案是使其睡眠一定时间后关闭,但这个方案并不好。因为不同的ppt导出视频所需的时间是不同的并且无法准确预估。

https://stackoverflow.com/questions/17618620/detect-when-powerpoint-has-finished-saving-a-file
判断 application.ppMediaTaskStatus 状态