给你的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来了个彻底的瘦身~