vba - VBAを使用してパワーポイントからビデオをエクスポート

Question

VBA を使用してパワーポイントからビデオをエクスポートしたいと考えています。このビデオは PC からアップロードされ、リンクを使用していません。次のコード行を使用すると、画像でこれが可能であることがわかりました。

ActivePresentation.Slides(1).Shapes(1).Export "C:\Cover.PNG", ppShapeFormatPNG

しかし、私はビデオのために同じことをすることができませんでした.

Answer 1

PPTX ファイルから元のビデオを抽出するだけですか? その場合は、ファイルの名前を変更して .ZIP 拡張子を付け、zip ファイルを開き、メディア フォルダーを参照します。その中に、挿入された (リンクされていない) サウンド、ビデオ、および画像のコピーが見つかります。

VBA で ZIP ファイルを操作するためのルーチンがあれば、おそらく同じことを行う方法を考え出すことができます。

考えられる代替方法: ビデオのサイズをスライド全体に合わせてから、PPT の SaveAs メソッドを使用して WMV として保存します。