PowerPointプレゼンテーションの未使用のマスタースライドをすべて削除する

私の会社は最近、新しいPowerPointテンプレートを作成しました。スライドなしの単独のサイズは9MBです。これは、モバイルデバイスへの送信にはまったく使用できず、顧客に迷惑をかけます。主な原因は、マスタースライド上の高解像度画像です。ほとんどの場合、高解像度の画像で8つのスライドを使用しません。私は画像を圧縮しようとしましたが、それでもテンプレートが5MBまで空になり、まだ大きすぎます。

とにかくプレゼンテーションを保存し、未使用の巨大なマスタースライドを自動的に破棄する方法はありますか。もちろん、マスタースライドに移動して削除することもできますが、これを自動的に実行できるものがあるかどうか疑問に思っていました。

「スライドマスター」として表示します。各スライドマスターにマウスを合わせると、そのスライドマスターが使用されているかどうかを確認できます。各スライドマスターを個別に削除できます。特に写真のあるものを探し、使用されていないものを削除します。

最初のスライドを強調表示してからDelete繰り返し押すと、使用されていないスライドテンプレートのみが削除されます。これは、使用中のテンプレートを削除することを心配せずに、テンプレートをすばやく手動でロールスルーする簡単な方法です。

これを行うには、マクロを作成します。

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

上記の賛成の答えはまだ機能し、私のために働いた。問題は、コードをコピーしたときに何をすべきかわからなかったことです。

少し調査した結果、これが上記のコードの使用方法であることがわかりました。

1. PPTドキュメントを開きます
2. ビューに移動し、マクロをクリックします
3. ドロップダウンでこのマクロを実行できる場所を選択します
4. 名前を付けて作成します。

その後、コードを貼り付けることができるウィンドウがポップアップします。

保存して、表示->マクロに戻り、ドロップダウンからマクロを選択します。

[実行]をクリックして完了！