Power-point 2013 使用 pdfcrop 导出到乳胶

Question

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

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

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

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

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

谢谢。

Answer 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