PowerPointで動画が崩れる！？トリミング後の不具合をマクロで解決！Resample後にSetDisplayPictureで変更するテスト

PowerPoint トリミングした動画で一瞬画面が先頭に戻り動画が崩れる件に対応 Resample後にSetDisplayPictureで変更するテスト表紙画像サムネイルをマクロでセットしてみた
https://youtu.be/Yi_9o3ImBRA?t=314
↑
画面が崩れる部分です、まず、ここから現物を確認して下さい
youtu.be
動画をトリミングすると先頭が崩れる件にチャレンジしてみた

1.まず、問題のスライドを見せます

動画をトリミングして、
貼り付けただけの単純なスライドです

朝ドット絵
昼写真
夕方アニメ
のシーンを動画からトリミングして、貼り付けました。

2.現在の作業内容と問題点
動画ファイルをPowerPointを使い強引に編集します

編集内容は、
動画ファイルを挿入後、
トリミングを行い、必要な部分を残し、
スライドと合わせる

スライド切り替えを☑自動0秒にしただけ
※秒数指定でもOKだと思いますが、とりあえず自動0で。

上記の簡単な編集です。

動画ファイルは、先頭をテストでわかりやすく、赤で始まる動画ファイルにしました

問題点:
①スライドショーで、先頭画面(ここでは、赤)が一瞬表示される※トリミングはOK
②エクスポートで作成したMP4動画も、同様です

3.マクロでトリミング動画を再サンプリング(エンコード？)する

PowerPointの操作メニューで、見つけられなかったのですが、
VBAのコードを調べると、
.Resample リサンプリング？再エンコード？みたいなメソッドがあり、
と同時に
.SetDisplayPicture セットディスプレイピクチャー？※おっサムネイル？みたいな感じ？
を見つけたので、
下記のテストコードでセットしてみました。

動画を選択後、下記のマクロを走らせる感じです

3.1 コードの紹介と簡単なコード説明

'選択されたシェイプから、動画・メディアのオブジェクトを代入します
Set vid = shp.MediaFormat '動画のフォーマットを取得

'単純に再サンプリングのメソッドを実行しただけ
vid.Resample True '再サンプリング、再エンコード？
'↑この後、動画の選択範囲が狭くなるので、軽量化も？

'表紙画像を0位置にします
'開始位置(0)を Set Display Picture サムネイルにする
vid.SetDisplayPicture 0
DoEvents

と、単純に2つ、2行命令を実行しただけです。
※手動操作、メニューに無いのか？が気になるところ。

ここから下の、コードをコピーして、貼りつけて使ってみてください。

'トリミングされた動画を再エンコード後、表紙画像・サムネイルをトリミング後の先頭画像にする
Sub トリミング動画の調整()

    Dim shp As Shape   '選択したシェイプ、図形や動画、テキストボックス
    Dim vid As MediaFormat  '動画

    'ppSelectionShapes 2
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then
        MsgBox "Shapeを選択してね", vbExclamation
        Exit Sub
    End If

    '選択されたシェイプの1番目を取り出す
    Set shp = ActiveWindow.Selection.ShapeRange(1) '←複数選択時も１つだけ処理

    ' シェイプが動画かチェックする
    If shp.Type = msoMedia Then   '動画なら メディアなら(音声もメディアだけどね・・)
        Set vid = shp.MediaFormat '動画のフォーマットを取得
        vid.Resample True   '再サンプリング、再エンコード？
        DoEvents
        MsgBox "次に表紙画像を0いちにします、終了後OKを押して", vbInformation
        
        '開始位置(0)を Set Display Picture サムネイルにする
        vid.SetDisplayPicture 0
        DoEvents
        
        '今回は、使わなかったけど、指定した画像をサムネイルにすることも可能
        'vid.SetDisplayPictureFromFile "D:\0000\Black.jpg"
        '興味のある人は↑Set Display Picture From File を見てね
        
        MsgBox "トリミングされた動画を確認して下さい", vbInformation
    Else
        MsgBox "動画を選択してください", vbExclamation
    End If

End Sub

4.マクロを実行して、トリミング動画を調整する

マクロコードをコピーしたら
※少し、イヤかなりハードル高いですが
※※本当に、PowerPointのメニューにトリミング後の再サンプリングとサムネ設定が無いのかなぁ？後でチェックしないとなぁ

4.1 表示のマクロから、
何か適当に名前をいれて
abc
作成を押します。

4.2 マクロのエディターが起動したら、Ctrl+Vでコピーしたコードを貼り付けます
貼り付けるとき、カーソルの位置に注意
abc
は、ほっといて、
重ならないように貼り付けてください

4.3 PowerPointに戻るコード画面を閉じてPowerPointに戻ります

右上の×
か
ファイルから閉じる
で、
PowerPointに戻ります。

4.4 マクロを実行します

トリミングした動画を選択後、
表示・マクロから
貼り付けたトリミング動画の調整
を選択して実行します

確認メッセージがでたらOKを押してください
すると、
サムネイルがトリミングの先頭画像に変更されると思います

4.5 トリミング動画数分マクロを実行してください

同様に、次のトリミング済み動画を選択してから
表示・マクロ
動画トリミング後調整
実行
で、
調整を繰り返してください。

5.保存

保存ボタンを押すと、マクロが保存されない・・
と警告が出ると思いますが、
使い捨てなので、無視して、保存を続けてください。
※んっ？、使い捨て？後日、他のスライドをやる時は、ソースコピーからやるの？
　はい、そんなかんじです・・・
※※作業者にやさしくない・・わかりにくい手順ですね、今後の課題ですね。

6.スライドショーと動画をエクスポートして確認する

まず、スライドショーで一瞬の切り替わりが緩和されているか？
確認します。
※極端な、赤、から変更したから緩和したようにみえるけど、トリミングのつなぎはスムーズではないかな・・・

動画をエクスポートします。

7.蛇足:ついでに知恵袋の回答づくり・・・

＞動画の前半をトリミングして繋げる時に、
＞前の動画から切り替わる時がぶつ切りにならないようフェードなどのアニメーションをつけたいです。

＞たとえばA→Bの動画を繋げるとして、Bの始まりをトリミングしたとします。

＞Bのトリミング前の始めの静止画が映り、Bのトリミングした部分から再生されてしまいます。

＞一瞬映るのがすごく気になってしまうのですが、調べても分かりません。

1つのスライド内に、二つの動画をつなげてみます

7.1 動画素材の挿入とトリミング
タイトル:出社後コーヒーだけ飲んで帰ってしまう人

001写真実写動画から、朝のコーヒーのシーンを切り取ります
002アニメから昼のランチを抜き取ります
003ドット絵から夕方帰るシーンを切り取ります

7.2 再生の間にクリアのアニメを入れる

001写真を選択して、
アニメーションの追加を選択します
クリアのアニメを選択・追加します
一番下に追加されるので、

001朝再生
と
002昼再生
003夕再生
の間に移動させ、

001朝再生
001朝クリア
002昼再生
003夕再生

にしてから、
002昼再生を直前の動作と同時にします

同様に、002昼のクリアを追加して、
003夕方を再生を直前の動作と同時にします

7.3 スライドショーで確認する
スライドショーで確認します
※表示順がおかしいと思うので、
ホーム
配置
オブジェクトの選択と表示
から、
表示順番・重なりを調整します

7.4 不具合の確認

何も処置していないので、
先頭の赤い画面がチラっと見えると思います。

7.5 マクロをコピーして実行する

マクロをコピーして実行します
4章を再度確認してね
※説明を手抜きます・・・
視聴者心の声:「ここまで、長時間見た視聴者に対して、とても不親切な解説者だね、抗議の低評価押しました」
なんて、
聞こえてきたような気もしつつ、
コピーして、実行します。

※重なっていると、作業がしにくいですね。
重ねる前に処理した方が良かったかも。(手順の前後でやりやすさが違うかなぁ)

7.6 スライドショーの確認

スライドショーを確認する

7.7 エクスポート後の動画を確認する

エクスポート後の動画を確認する

8.おわりの挨拶

こんな感じで、トリミング後の動画をマクロで調整してみました。
今後の課題としては、
手動操作で同じことができないか？探すことですね。

解決のヒントとなれば、幸いです。

何か、質問や感想などあったら、コメント欄に気軽に書き込んでくださいね。

動画要約

PowerPointでトリミングした動画を繋げた際に発生する
「一瞬画面が先頭に戻ってしまう現象」の解決策を紹介しています。

この現象は、PowerPointがトリミング処理を正しく行えていないことが原因で発生します。
解決策として、VBAマクロを用いた「再サンプリング」と「サムネイル変更」という2つの手順を解説しています。

実際にPowerPointを操作しながら、具体的な手順を丁寧に説明しています。さらに、動画のエクスポートを行い、修正前と修正後の動画を比較することで、この方法の効果を明確に示しています。

後半では、視聴者からの質問を想定し、1つのスライドに複数の動画を繋げる場合の注意点や、アニメーションの設定方法についても解説しています。

動画目次

00:00 イントロダクション＆問題提起
00:16 現状の作業内容と問題点
00:47 トリム後の動画の不具合を動画で確認
03:00 マクロでトリミング動画を再サンプリングする方法を紹介
06:16 マクロのコード解説＆適用手順
08:16 実際にマクロを適用する手順
12:37 マクロ適用後のPowerPoint画面に戻る
12:47 マクロの実行
13:55 トリム後の動画を確認
14:20 再度トリム
14:44 再度マクロ実行
16:18 トリムした動画の確認
17:19 動画をエクスポート
19:21 エクスポート後の動画を確認
20:20 再度トリム＆確認 (1)
21:10 再度トリム＆確認 (2)
21:56 再度トリム＆確認 (3)
22:50 トリム後の動画をスライドショーで確認
23:16 スライドの重なり順を修正
23:50 動画をエクスポート
24:16 エクスポート後の動画を確認
25:10 1つのスライドに3つの動画を繋げる
26:20 音声の追加
26:50 再生の間にクリアのアニメを入れる
29:00 アニメーション設定の確認
29:50 動画をエクスポート
31:19 動画確認：問題発生！
36:10 オブジェクトの重なり順を修正
36:39 画面切り替えのタイミングを修正
38:48 音声の追加
38:58 動画をエクスポート
39:16 エクスポート後の動画を確認
40:13 1つ目の動画をトリミング
40:51 2つ目の動画をトリミング
41:26 3つ目の動画をトリミング
42:15 最後に改めて動画を確認
44:07 サムネ修正、再度マクロ実行
46:20 音声の追加
46:50 アニメーションの設定
47:09 動画をエクスポート
49:00 エクスポート後の動画を確認
51:43 まとめ
52:59 エンディング