webdevqa.jp.net

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

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

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

22
Scott

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

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

18
hazelmoon

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

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
20
Moogle

上記の賛成投票はまだ機能し、私のために機能しました。問題は、コードをコピーしたときに、どうすればいいのかわからなかったことです。

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

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

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

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

「実行」をクリックして完了です。

1
LadyLuck