给你的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 For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes Select Case oSh.Type Case msoChart, msoEmbeddedOLEObject, msoLinkedOLEObject ConvertShapeToPic oSh Case Else End Select Next Next End Sub

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) Loop Until .ZOrderPosition = .ZOrderPosition End With oSh.Delete End Sub

评语:

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

火箭评分:

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

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