社会专题
靓丽女人 黑白社会 硬件网络 天下军事 教育咨询 星新一代 汽车电子 幽默笑话 农村特色 有书有道 软件技术 玄幻奇幻 办公达人 便民服务 免费资源 代码效果 美文园地 寻医问药 健康保健 时尚酷玩 天文地理 科技科幻 美食天下 游山玩水 历史天空 制作教程
FLASH频道
女生游戏 益智游戏 有声艺术 有声故事 电脑运用 休闲游戏 MTV类 运动游戏
聚划算
商旅游玩 装潢装饰 家电家具 服装服饰 健康保健 二手特色 生活必备 数码产品
映讯频道
喜剧片 国内片 情感片 动作片 战争片 纪录之窗 欧美剧集 明星云集 动漫片 港澳台剧 大陆剧 科幻片 恐怖片 浓缩电影 教育教学 艺术无界 一技之长 邻国热剧
下载中心
音体美合 信息社政 英语外语 科学自然 常用软件 语文数学 手机软件 红绿软件
图片中心
制作美图 生活图片 美女欣赏 实物图片 艺术欣赏 风景欣赏
领券购
热销女装 热血男装 生活必须 电子电器 手机电脑 旅游出行 学习艺术 吃货优选
新闻中心
一语惊人 奇闻趣事 热点专栏 曝光台 消费警示 今日观察 IT业界 消费主张 动态备忘 专利之窗
关闭
当前位置:首页社会专题办公达人
PPT快速导出任意分辨率视频

从PowerPoint2010开始,就已经支持PPT导出为视频的功能了,不过到目前为止,也只是提供了导出为最高1080P的视频,以及720P和480P的选项,如果你想获得更高清的分辨率或者是任意大小的分辨率,可以试试下面这个方法。

打开要转换为视频的PPT,快捷键Alt+F11打开宏窗口,选择插入-模块(M),将下面一段代码输入到窗口中。

Sub MkVideo()

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "Desktop est.wmv", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=25, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub

选择运行宏,等待一段时间后,视频保存在桌面:test.wmv

代码中:

VertResolution:=1080(1080为视频的高度,可自由调整)

FramesPerSecond:=25(25为帧数/秒,数字越高视频越流畅,也更大)

test.wmv(test为视频名称,可以修改)

使用上述代码,可导出任意分辨率视频,包括PowerPoint2007也可以使用。

提示:输入修改代码都可运行!
1
酒精度
89
顶一下
相关阅读
内容加载中……