Автоматический коммутатор PowerPoint 4x3 до 16x9

Question

У меня есть примерно 1000 презентаций PowerPoint, которые были созданы в формате 4x3, которые я хотел бы переключить на 16x9. Они в основном состоят из заголовка и текстового окна ниже на каждом слайде со средним количеством 5 слайдов на презентацию.

Я знаю, что могу войти и настроить макет, чтобы переключить презентацию ... но сделать 1000 из них по одному будет very занимает много времени.

Есть ли способ использовать ASP, VB или PHP, что я могу сделать это автоматически? Я знаю, что мне все еще, вероятно, понадобится войти и сделать некоторую очистку, но, по крайней мере, это обеспечит первый кусок процесса ... надеюсь, легко!

Спасибо.

Answer 1

Там же рутина, чтобы сделать что-то для каждого файла в папке на моем сайте PPTFAQ:

Batch: Есть ли что-то для каждого файла в папке http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

Это первый создает список файлов для обрабатывается, а затем отсылает имена от одного к другому подпрограмме под названием 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