ppt 制作海报 导出高分辨率图片 - SuperZhang828

ppt 制作海报 导出高分辨率图片

用ppt做海报，导出图片的时候，发现导出的图片的分辨率只有96ppi,清晰度不太好。

怎么能这样呢！

网上搜了一下，发现微软提供了一个修改注册表的方法，点击这里访问。不过那里讲的最新只有2010，我的是2016版本的，按照上面说的做，发现没用。

找找其他办法吧。付费软件PPtools，好像也能弄。不过，要钱，差评！

之后，看到一个博客[这里]，里面使用了宏来导出图片，代码如下

 1 Sub ppt2pic()
 2 \'
 3 \' 宏由 zim 创建，日期 2012-10-5。
 4 \'
 5     Dim Nx     As Shape
 6     Dim X     As Long
 7     For X = 1 To ActivePresentation.Slides.Count
 8             \'跳至指定的幻灯片
 9             \'ActiveWindow.View.GotoSlide   X
10             \'获取当前幻灯片编号
11             \'ActiveWindow.View.Slide.SlideIndex
12             \'ActiveWindow.Selection.SlideRange.Shapes
13             For Each Nx In ActivePresentation.Slides(X).Shapes
14                     If Nx.Type = 14 Or Nx.Type = 1 Then Debug.Print Nx.TextFrame.TextRange.Text
15             Next
16             \'导出幻灯片到图像
17             ActivePresentation.Slides(X).Export "D:\" & X & ".JPG", ".JPG", 3072, 2304
18     Next
19  
20 End Sub

 

运行了一下，发现修改"D:\"权限不够会报错，改个目录就行了。把3072, 2304改成其他更大更大的数，会溢出，最高ppi只有282ppi,不过比96ppi好多了。