Автоматическое переключение PowerPoint 4×3 на 16×9
У меня есть примерно 1000 презентаций PowerPoint, которые были созданы в формате 4×3, и я бы хотел перейти на 16×9. Они в основном состоят из заголовка и текстового поля ниже на каждом слайде, в среднем по 5 слайдов на презентацию.
Я знаю, что могу пойти и настроить макет, чтобы переключить презентацию … но делать 1000 из них по одному будет очень кропотливый.
Есть ли способ с помощью ASP, VB или PHP, что я могу сделать это автоматически? Я знаю, что мне все еще, вероятно, нужно будет пойти и сделать какую-то уборку, но по крайней мере это позволит сделать первый кусок процесса … надеюсь, легко!
Благодарю.
Решение
Для каждого файла в папке на моем сайте PPTFAQ существует процедура:
Пакет: сделать что-нибудь для каждого файла в папке
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
Он изменит презентацию в формате 16×9 и сохранит ее в исходном каталоге с «Widescreen_», добавленным к исходному имени файла. Например, MyFile.PPTX будет сохранен как Widescreen_MyFile.PPTX.
Другие решения
Других решений пока нет …