1

我有一个大约 100 张幻灯片的 powerpoint 演示文稿。

每张幻灯片都有一个图形。我编辑每张幻灯片[在每个图上工作]，然后将每张幻灯片分别保存为 pdf 格式。

我在 adobe acrobat 中分别裁剪每个 pdf，以删除空格和其他一些我不想进入最终图中的幻灯片元素。然后我在 Texmaker 中包含这个 pdf 作为我的乳胶文档的图形。这个过程非常低效。

请提出一些我可以部分或完全自动化此过程的方法。

我尝试在 powerpoint 中录制宏以自动至少将当前幻灯片保存为 pdf 部分，但它会在通过开发人员选项卡单击定义宏时打开一个 vba 窗口，我不了解 vba 脚本。

谢谢。

4

1 回答 1

1

是否有理由导出为 PDF 而不是 JPG 或 PNG 等光栅格式？可以从 VBA 调用一些开源解决方案来裁剪这些图像格式。如果您需要 PDF，那么此宏将满足您的需求：

Option Explicit

' *********************************************************
' Purpose : PowerPoint VBA macro to export slides as either
'           and image or a PDF.
' Author  : Jamie Garroch from htpp://youpresent.co.uk/
' Date    : 17MAY2016
' *********************************************************
Sub ExportEachSlidesAsPDF()
  Const myPath = "C:\Temp\"
  Dim oSld As Slide
  For Each oSld In ActivePresentation.Slides
    ' The next commented line exports the slide as a JPG
    'oSld.Export myPath & ActivePresentation.Name & " Slide " & oSld.SlideIndex & ".jpg", "JPG"

    ' Export each slide as a PDF
    With ActivePresentation
      .PrintOptions.Ranges.ClearAll
      .PrintOptions.Ranges.Add oSld.SlideIndex, oSld.SlideIndex
      .ExportAsFixedFormat2 Path:=myPath & ActivePresentation.Name & " Slide " & oSld.SlideIndex & ".pdf", _
        FixedFormatType:=ppFixedFormatTypePDF, _
        Intent:=ppFixedFormatIntentPrint, _
        FrameSlides:=msoFalse, _
        HandoutOrder:=ppPrintHandoutHorizontalFirst, _
        OutputType:=ppPrintOutputSlides, _
        PrintHiddenSlides:=msoFalse, _
        PrintRange:=.PrintOptions.Ranges(1), _
        RangeType:=ppPrintSlideRange
    End With
  Next
End Sub
于 2016-05-17T07:08:15.203 回答