zsx's Old Blog

黑历史逐步隐藏中_(:з」∠)_仅保留部分可能有些价值的文章,并不保证将来的可访问性。

PowerPoint转换视频和图片为任意分辨率

这里的PowerPoint版本需要为2010以上,否则就有问题。

PowerPoint自带的转换功能不能转换高清视频和高清图片,于是,经过多方努力查询,查到这个——

VBA代码:

Sub ConvertToVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:="文件存放路径", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=25, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub

文件扩展名可以是wmv也可以是mp4。如果是mp4,视频编码则为H.264,音频为AAC。某些PPT不能转换为MP4,原因未知。


Sub ConvertToImg()
    If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
        ActivePresentation.Export "文件夹", "扩展名", 宽度, 高度
    End If
End Sub

扩展名可以为JPG或PNG,中途不能取消。

控制面板
您好,欢迎到访网站!
  查看权限
Google Adsense
文章归档
站点信息
  • 文章总数:259
  • 页面总数:10
  • 分类总数:17
  • 标签总数:136
  • 评论总数:1644
  • 浏览总数:216659

Powered By Z-BlogPHP 1.5.1 Zero

闽ICP备15006942号   闽公网安备 35010302000147号