3

パワーポイント プレゼンテーションからスライド全体を画像にエクスポートする方法に関するヒントやヒントはたくさんありますが、これは私の探求ではありません。代わりに、個々のスライド内のすべての「非オープン形式」の画像タイプを変換し、それらを (その場で) 対応する適切なものに置き換えようとしています。これは主に Google Docs が .emf および .wmf 形式を理解していないことに起因します (なぜですか? では、オープン ソース ソフトウェアは実際にそれをサポートしているのですか?)。複雑なプロセスなので、誰かがこれを行う良い方法を見つけたのではないかと思っていました.

まとめ: PowerPoint プレゼンテーションの emf および wmf ファイルを png または jpg 形式にインプレース アップグレードします。補足として、これらのファイルを zip ファイルとして開くと、問題のファイルが \ppt\media にあることを確認できますが、単にファイルを置き換えると、Powerpoint で以前に参照された画像ファイルが削除され、何かが間違っている可能性があると不平を言うだけです。違う。

4

1 に答える 1

1

「不親切な」画像ごとに、PNG (または JPG または任意のもの) としてコピーして貼り付け、元の画像を削除します。

単純な例:

Sub ConvertShapeToPNG()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    oSh.Copy
    ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial ppPastePNG
    oSh.Delete
End Sub

実際には、一度に 1 つずつ手動で行うのではなく、まとめてこれを行いたいと仮定すると、画像が「友好的」かどうか (実際には画像かどうか) を判断する方法が必要になります。

最初に、oSh.Type = msoPicture (または他のいくつかの可能な型の 1 つ) かどうかを確認できます。画像の場合、それは既にラスター形式ですか、それとも「扱いにくい」形式ですか? 図形のコピーをグループ解除してみてください。試行でエラーがスローされた場合、それは既にラスターです。エラーがなければ、結果のグループ化されていない形状/形状範囲と元の形状のコピーを削除します。

PNG/etc としてコピー/貼り付けしたら、元の形状の x/y 位置を取得し、それを新しい PNG 形状に適用し、場合によっては新しい形状を元の z オーダーに移動する必要があります。

于 2012-07-26T14:20:34.310 に答える