1

~ 100 枚のスライドを含むパワーポイント プレゼンテーションがあります。

各スライドには図があります。各スライドを編集し [各図で作業] し、各スライドを個別に pdf 形式で保存します。

adobe acrobat ですべての pdf を個別にトリミングして、最終的な図には入れたくない空白やその他のスライド要素を削除します。次に、ラテックスドキュメント用に、このpdfを図としてTexmakerに含めます。このプロセスは非常に非効率的です。

このプロセスを部分的または完全に自動化する方法をいくつか提案してください。

パワーポイントでマクロを記録して、少なくとも現在のスライドをpdfパーツとして保存することを自動化しようとしましたが、開発者のタブからマクロの定義をクリックするとvbaウィンドウが開き、vbaスクリプトの知識がありません。

ありがとう。

4

1 に答える 1

1

JPG や PNG などのラスター形式ではなく、PDF としてエクスポートする理由はありますか? これらの画像形式をトリミングするために 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 に答える