2016-05-16 4 views
1

私は約100枚のスライドでパワーポイントプレゼンテーションをしています。パワーポイント2013のpdfcropでのラテックスへのエクスポート

各スライドには数字があります。 各スライドを編集して各図をpdf形式で別々に保存します。

私は最終的な図に行きたくない空白やその他のスライド要素を削除するために、Adobe AcrobatでPDFをすべて切り抜きます。 次に、私のラテックス文書のために、このpdfをTexmakerに図として含めます。 このプロセスは非常に非効率的です。

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

少なくとも、現在のスライドをPDF部分として保存するのを自動化するためにマクロを記録しようとしましたが、開発者のタブでマクロを定義するとvbaウィンドウが開き、vbaスクリプトに関する知識がありません。

ありがとうございました。

答えて

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 
+0

ありがとうございます。私はPDF形式のグラフィックスのベクトル形式を保持するようにしたい[無損失] これは現在のスライドだけをpdf形式でエクスポートしますか?これは私が一度に1人の人物に取り組むときに欲しいものです。 –

+0

理解してはい、各スライドを1つのPDFファイルとしてエクスポートします。 WMFやEPSなどのベクタ形式でスライド自体からベクターオブジェクトを書き出すことができます。 –

関連する問題