用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好多了。