自动切换 PowerPoint 4x3 到 16x9

Question

我有大约 1,000 个以 4x3 格式创建的 PowerPoint 演示文稿，我想切换到 16x9。它们主要由每张幻灯片下方的标题和文本框组成，平均每个演示文稿有 5 张幻灯片。

我知道我可以进入并调整布局以切换演示文稿...但是一次做 1,000 个将非常耗时。

有什么方法可以使用 ASP、VB 或 PHP 自动执行此操作？我知道我仍然可能需要进去做一些事情 clean-up 但至少这会完成流程的第一部分......希望很容易！

谢谢。

Answer 1

我的 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

它会将演示文稿更改为 16x9 格式并将其保存到原始目录，并在原始文件名前加上 "Widescreen_"。例如，MyFile.PPTX 将保存为 Widescreen_MyFile.PPTX

自动切换 PowerPoint 4x3 到 16x9

Automated switch PowerPoint 4x3 to 16x9

php

vb.net

asp.net

powerpoint