2016-12-08 6 views
1

4x3形式で作成されたPowerPointプレゼンテーションは、16x9に切り替えることが約1,000件あります。主に各スライドのタイトルとテキストボックスで構成され、プレゼンテーションごとに平均5つのスライドがあります。自動化されたスイッチPowerPoint 4x3〜16x9

私はプレゼンテーションを切り替えるためにレイアウトを調整することができますが、一度に1つずつ1,000個を実行すると、になります。時間がかかります。

私はこれを自動的に行うことができるASP、VB、またはPHPを使用する方法はありますか?私はまだ行く必要がありますし、いくつかのクリーンアップを行うが、少なくともこれは、プロセスの最初のチャンクを得るだろう知っている...うまくいけば簡単に!

ありがとうございました。

+0

これらのプレゼンテーションのいくつかを開き、手動でスライドサイズを変更した場合、どのバージョンのPPTを使用できますか? –

+0

これはPPT 2013です...結果は「適切」です...完璧ではありませんが、手動で16x9に切り替えると十分に近いです。 –

+0

私の提案された答えを見てください。 –

答えて

1

私PPTFAQサイト上のフォルダ内のすべてのファイルに何かをするル​​ーチンがあります:

バッチ:それは最初にファイルのリストを作成し、フォルダ http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

内のすべてのファイルに何かをします処理された後、一度に1つの名前をMyMacroという別のルーチンに渡して、各プレゼンテーションの実際の作業を行います。これでウェブサイト上MYMACROのバージョンを置き換えます

Sub MyMacro(strMyFile As String) 
' this gets called once for each file that meets the spec you enter in ForEachPresentation 
' strMyFile is set to the file name each time 

    Dim oPresentation As Presentation 
    Set oPresentation = Presentations.Open(strMyFile) 

    With oPresentation 
     .PageSetup.SlideSize = ppSlideSizeOnScreen16x9 
     .SaveAs .Path & "\" & "Widescreen_" & .Name 
     .Close 
    End With 

End Sub 

それは16x9の形式にプレゼンテーションを変更し、元のファイル名の前に付け、「Widescreen_」と、元のディレクトリに保存します。たとえば、MyFile.PPTXはWidescreen_MyFile.PPTXとして保存されます

+0

素敵な簡単な解決策。私はそれがかなり簡単だったことを気づかなかった。ディレクトリのファイル数を調べるだけで、事前にファイル数をカウントできるので、毎回リダイレクトしないようにメインルーチンを調整する可能性があります。私はまた、調整されたすべてのファイルを置くサブディレクトリを作成する可能性があります...しかし、コードはシンプルでクリーンで...正確に私が探していたものの種類。ありがとう。 –

+0

必要に応じて、自由に調整/改良/再利用を行ってください。それが助けてくれてうれしい。 –

関連する問題