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

Question

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

每张幻灯片都有一个数字。我编辑每张幻灯片 [处理每张图]，然后将每张幻灯片单独保存为 pdf 格式。

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

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

我尝试在 powerpoint 中录制宏以自动至少将当前幻灯片保存为 pdf 部分，但它会打开 vba window 通过开发人员选项卡单击定义宏，我不知道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

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

Power-point 2013 export to latex with pdfcrop

pdf

powerpoint

vba

latex

texmaker