PowerPointのすべてのスライドに埋め込まれた音声（オーディオオブジェクト）を削除するマクロ

2025年2月16日

以下のVBAコードは、PowerPointのすべてのスライドに埋め込まれた音声（オーディオオブジェクト）を削除するマクロです。

使い方

PowerPointを開く
Alt + F11 を押してVBAエディタを開く
挿入 → 標準モジュール を選択
以下のコードを貼り付け
F5 を押して実行

Sub DeleteAllAudio()
    Dim slide As slide
    Dim shape As shape
    Dim ppt As Presentation
    
    ' アクティブなプレゼンテーションを取得
    Set ppt = ActivePresentation
    
    ' すべてのスライドをループ
    For Each slide In ppt.Slides
        ' スライド内のすべてのオブジェクトを確認
        For Each shape In slide.Shapes
            ' オーディオ（音声）オブジェクトか確認
            If shape.Type = msoMedia Then
                shape.Delete ' 音声オブジェクトを削除
            End If
        Next shape
    Next slide
    
    ' 完了メッセージ
    MsgBox "すべての埋め込まれた音声を削除しました。", vbInformation
End Sub

説明

For Each slide In ppt.Slides で全スライドをループ
For Each shape In slide.Shapes でスライド内のすべてのオブジェクトを確認
If shape.Type = msoMedia Then で音声（メディア）オブジェクトを識別
shape.Delete で音声を削除
MsgBox で処理完了の通知

このマクロを実行すると、PowerPoint内のすべての埋め込まれた音声ファイル が削除されます。

よかったらシェアしてね！

URLをコピーしました！

URLをコピーしました！

この記事を書いた人

GoodMorning

GoodMorning！

デジタルの海原を冒険しながら、美食の宝を探し求める探検家です。テクノロジーの世界を舞台に、新しい発見を求めて、キーボードの海を横断。そして、実世界では、隅々まで足を運んで、舌鼓を打つ価値のある美味しいお店を見つけ出します。

私の使命は、小さなITの豆知識から始まり、心を満たすグルメスポットの紹介まで、あなたの日常にちょっとしたスパイスを加えること。画面の向こう側から、気軽に楽しめる話題を届けたいのです。ここでは、私が「これは！」と思った技術的な小話や、舌の記憶に残るような食べ物屋さんを紹介していきます。

このWebサイトは、ITとグルメ、二つの世界を融合させた、まさにデジタルと現実の融合点。ふらっと立ち寄って、新たな発見や、ほっこりするような話題で一息ついていただけたら幸いです。知識の海を冒険し、味覚の旅を楽しみましょう。毎日を少しだけ特別なものに変える、そんな情報をお届けします。

GoodMorning!

I am an explorer who ventures across the digital sea in search of gastronomic treasures. In the world of technology, I traverse the sea of keyboards in search of new discoveries. And in the real world, I visit every nook and cranny to find a delicious restaurant worth tantalizing your taste buds.

My mission is to add a little spice to your everyday life, starting with little IT tidbits and ending with foodie spots that fill your heart. I want to bring you topics that you can easily enjoy from the other side of the screen. Here, I'm going to share with you some of the technical tidbits and I will introduce small technical stories and food shops that will leave a lasting impression on your taste buds.

This Web site is truly a fusion point of digital and reality, combining the two worlds of IT and gourmet. I hope you will stop by and take a breather with new discoveries and dusty topics. Come explore the sea of knowledge and enjoy a journey of taste. I will bring you the information that will change your everyday life into something a little more special.

PowerPointのすべてのスライドに埋め込まれた音声（オーディオオブジェクト）を削除するマクロ

使い方

説明

この記事を書いた人

関連記事