如何用vba将ppt另存导出为视频文件？

可以使用Presentation对象的CreateVideo方法。

它的语法如下：

expression. CreateVideo( _FileName_, _UseTimingsAndNarrations_, _DefaultSlideDuration_, _VertResolution_, _FramesPerSecond_, _Quality_ )

其中filename参数为要生成的视频的完整文件名，UseTimingsAndNarrations参数表示是否使用时间轴，DefaultSlideDuration参数表示每页的秒数，VertResolution表示分辨率，FramesPerSecond参数表示每秒帧数，Quality表示视频的质量。

代码如下：

Sub QQ1722187970()
    Dim oP As Presentation
    Set oP = PowerPoint.ActivePresentation
    sFileName = oP.Path & "\temp.mp4"
    oP.CreateVideo sFileName, True
End Sub