PPT制作教程 Office小技巧：给你的PPT来剂”减肥神药”

原创 效率火箭

当你发送一个上百页的PPT时，可怜的outlook总会提示你，“附件大小超过了允许的范围”。你也许会说：”我可以利用压缩图片工具，让每张图片都变小！“ 呵呵呵，还是看看火箭君怎么最快地完成这个任务吧！

01转成PDF

操作方法：

点击"文件” -> “另存为” -> “保存类型：PDF(*.pdf)”

评语：

PPT转成PDF可谓是PPT减肥的一剂猛药，基本上这么三下五除二，少说3/4的体积瞬间烟消云散。当然，药效过猛，必然是有副作用的，PDF虽小，但是却失去了所有PPT的动画效果。如果你的PPT内插了大量动画效果，那抱歉，这个方法完全不适合。

火箭评分：

02压缩文档内图片

操作方法：

点击"文件” -> “另存为” -> “保存类型：Powerpoint演示文稿(*.pptx)”->“工具”->“压缩图片”-> 勾选“删除图片的剪裁区域”并选择一个较低的分辨率

评语：

压缩图片是为PPT减肥的常用药。不过比起单张图片进行压缩，整体压缩效率来得高的多，不可不谓“猛”。

火箭评分：

03图表转图片

操作方法：

插入并执行以下宏命令：

Sub ConvertAllShapesToPic()

Dim oSl As Slide

Dim oSh As Shape

ForEach oSl In ActivePresentation.Slides

ForEach oSh In oSl.Shapes
SelectCase oSh.Type

Case msoChart, msoEmbeddedOLEObject, msoLinkedOLEObject
ConvertShapeToPic oSh

CaseElseEndSelectNextNext

EndSub

Sub ConvertShapeToPic(ByRef oSh As Shape)
Dim oNewSh As Shape

Dim oSl As Slide

Set oSl = oSh.Parent
oSh.Copy

Set oNewSh = oSl.Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)
With oNewSh

.Left = oSh.Left

.Top = oSh.Top

Do
.ZOrder (msoSendBackward)
LoopUntil .ZOrderPosition = .ZOrderPosition

EndWith
oSh.Delete

EndSub

评语：

别为这VBA感到困扰，因为火箭君已将源码奉上。其实，将所有繁琐的图表都转成图片，既减小了体积，还兼带了数据保密的效果。可以说是，一举多得。

火箭评分：

巧妙的三招，让你以最高效的速度帮助PPT来了个彻底的瘦身~

当然，如果你对如何在PPT中使用宏，尚存疑惑，那么请关注公众号，并回复“PPT宏”。我会告诉你如何在PPT中执行这条宏命令！