删除演示文稿中的幻灯片时，不必要地删除自定义布局

Question

很抱歉最近充斥了论坛，但我几乎完成了我的模板。我已经开始测试我的模板并意识到，每当我创建演示文稿并删除演示文稿中的幻灯片时，该幻灯片上使用的CUstomLayout将被自动删除，除非另一张幻灯片也使用它。

是否有一种方法来保护自定义布局，或者我在不知不觉中打开了一些奇怪的设置?

非常感谢西巴

Answer 1

在保存之前，PPT将删除任何未使用的自定义布局，除非它们"固定"在UI或代码中，您将CustomLayout的Preserved属性设置为True。这会将活动表示中的所有布局设置为Preserved:

With ActivePresenation
  For x = 1 to .Designs.Count
    For y = 1 to .Designs.SlideMaster.CustomLayouts.Count
      .Designs.SlideMaster.CustomLayouts(y).Preserved = True
    Next
  Next
End With

Answer 2

Steve非常接近，这里有一个固定的版本:

Sub PreserveLayouts()
  With ActivePresentation
    For x = 1 To .Designs.Count
      For y = 1 To .Designs(x).SlideMaster.CustomLayouts.Count
        .Designs(x).SlideMaster.CustomLayouts(y).Preserved = True
      Next
   Next
 End With
End Sub