Question

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

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

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

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

我尝试在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

Powerpoint 2013通过pdfcrop出口到乳胶

1 个答案: