删除 PowerPoint 演示文稿中所有未使用的母版幻灯片

Sco*_*ott 25 microsoft-powerpoint

我的公司最近创建了一个新的 PowerPoint 模板。它本身没有任何幻灯片,大小为 9MB。这完全不能用于发送到移动设备并惹恼客户。罪魁祸首是母版幻灯片上的高分辨率图像。大多数时候我不使用高分辨率图像的 8 张幻灯片。我试过压缩图像,但只能将模板压缩到 5MB 空,仍然太大。

无论如何要保存演示文稿并自动丢弃未使用的巨型母版幻灯片。显然我可以进去删除母版幻灯片,但想知道是否有任何东西可以让您自动执行此操作。

小智 23

你可以通过创建一个宏来做到这一点:

Sub SlideMasterCleanup()

Dim i As Integer
Dim j As Integer
Dim oPres As Presentation
Set oPres = ActivePresentation
On Error Resume Next
With oPres
    For i = 1 To .Designs.Count
        For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
            .Designs(i).SlideMaster.CustomLayouts(j).Delete
        Next
    Next i
End With

End Sub
Run Code Online (Sandbox Code Playgroud)


小智 19

查看为“幻灯片母版”。当您将鼠标悬停在每个幻灯片母版上时,您可以查看是否使用了该幻灯片母版。您可以单独删除每个幻灯片母版。尤其适合有图片的人,并删除未使用的人。

如果突出显示第一张幻灯片,然后不断Delete重复点击,只会删除未使用的幻灯片模板。这是一种快速手动滚动模板的简单方法,无需担心删除正在使用的模板。


小智 5

上面的赞成答案仍然有效并且对我有用。问题是,当我复制代码时,我不知道如何处理它。

经过一番研究,我发现上面的代码是这样使用的:

  1. 打开您的 PPT 文档
  2. 转到“查看”,单击“宏”
  3. 在下拉列表中选择您希望能够运行此宏的位置
  4. 给它命名并创建它。

然后会弹出一个窗口,您可以在其中粘贴代码。

保存它,返回视图-->宏,然后从下拉列表中选择宏。

单击“运行”即可完成!