ppt 制作海报 导出高分辨率图片
2016-05-10 17:23
218 查看
用ppt做海报,导出图片的时候,发现导出的图片的分辨率只有96ppi,清晰度不太好。
怎么能这样呢!
网上搜了一下,发现微软提供了一个修改注册表的方法,点击这里访问。不过那里讲的最新只有2010,我的是2016版本的,按照上面说的做,发现没用。
找找其他办法吧。付费软件PPtools,好像也能弄。不过,要钱,差评!
之后,看到一个博客[这里],里面使用了宏来导出图片,代码如下
运行了一下,发现修改"D:\"权限不够会报错,改个目录就行了。把3072, 2304改成其他更大更大的数,会溢出,最高ppi只有282ppi,不过比96ppi好多了。
怎么能这样呢!
网上搜了一下,发现微软提供了一个修改注册表的方法,点击这里访问。不过那里讲的最新只有2010,我的是2016版本的,按照上面说的做,发现没用。
找找其他办法吧。付费软件PPtools,好像也能弄。不过,要钱,差评!
之后,看到一个博客[这里],里面使用了宏来导出图片,代码如下
Sub ppt2pic() ' ' 宏由 zim 创建,日期 2012-10-5。 ' Dim Nx As Shape Dim X As Long For X = 1 To ActivePresentation.Slides.Count '跳至指定的幻灯片 'ActiveWindow.View.GotoSlide X '获取当前幻灯片编号 'ActiveWindow.View.Slide.SlideIndex 'ActiveWindow.Selection.SlideRange.Shapes For Each Nx In ActivePresentation.Slides(X).Shapes If Nx.Type = 14 Or Nx.Type = 1 Then Debug.Print Nx.TextFrame.TextRange.Text Next '导出幻灯片到图像 ActivePresentation.Slides(X).Export "D:\" & X & ".JPG", ".JPG", 3072, 2304 Next End Sub
运行了一下,发现修改"D:\"权限不够会报错,改个目录就行了。把3072, 2304改成其他更大更大的数,会溢出,最高ppi只有282ppi,不过比96ppi好多了。
相关文章推荐
- Linq to sql 实现多条件的动态查询(方法一)
- Unreal 学习笔记之一-基本概念
- 链队列的初始化、入队、出队等操作实现
- C语言中变量存储类型有哪些?
- Android mmm 编译时cannot find symbol
- JS+JQuery实现前端省、市、区三级联动(插件)
- dict.items vs six.iteritems
- 数据结构实验之链表一:顺序建立链表
- Product Studio
- 标准的Java编码规范手册
- 终端、作业控制与守护进程
- Ubuntu下配置LAMP环境
- mysql权限管理(实例)
- Cobbler无人值守全自动安装部署Linux系统
- 百度地图加载页面报错
- php结合web uploader插件实现分片上传文件
- C#剪切,复制,粘贴底层应用编写
- 标准的Java编码规范手册
- poj2262 - 素数判断
- jQuery Mobile 表单