私たちはCustomLayouts（）を設定できますか？vbaを使用してPowerpoint内のすべてのレイアウトに対してPreserved = msoCFalse？

Question

アクティブプレゼンテーションのすべてのレイアウトを.Preserved = msoCFalseに設定できますか？

1つのレイアウトコード：

ActivePresentation.Designs(1).SlideMaster.CustomLayouts(i).Preserved = msoCFalse 

ここで、i =レイアウトインデックス番号。

All.Preserved = msoCFalseのようにする方法はありますか？または同じように行うためのよりよい方法はありますか？

ありがとうございました

Answer 1

それぞれに対してアクションを実行することができます。

Dim i As Long 
With ActivePresentation.Designs(1).SlideMaster 
    For i = 1 To .CustomLayouts.Count 
     .CustomLayouts(i).Preserved = msoCFalse 
    Next 
End With