AcroExch.PDDoc: CropPages メソッド

TOP > AcroExch.PDDoc > CropPages      [...]


説明

指定されたページをトリミング(範囲指定で切り取り)します。

トリミング結果が72ポイント(1インチ)未満ならば要求が無視されます。

 

形式

VARIANT_BOOL CropPages(long nStartPage, 
               long nEndPage,
               short nEvenOrOddPagesOnly,
               LPDISPATCH iAcroRect);

 

戻り値

  • -1 : 成功。
  • 0 : 失敗。

 

引数

  1. 第1引数(long nStartPage) :
    処理開始ページ。0が開始ページ。
  2. 第2引数(long nEndPage) :
    処理終了ページ。
  3. 第3引数(short nEvenOrOddPagesOnly) :
    PDFドキュメントの対象範囲
      0:全てのページ
      1:奇数ページのみ
      2:偶数ページのみ
  4. 第4引数(LPDISPATCH iAcroRect) :
    トリミングする範囲を指定したAcroRectオブジェクト

 

動作するバージョン

Version Adobe
Acrobat
備考
4
-
Acrobat 4.0    ※Windows 98SE + Excel 2000
5
-

Acrobat 5.0.5
6
-

Acrobat 6.0.3 Pro
7
-
Acrobat 7.0.9 Pro
Acrobat 7.1.4 Pro
8
OK
Acrobat 8.1.2 Pro
9
-
Acrobat 9.3.2 Extended
10
-
Acrobat X (10.1.8) Extended
11
-
Acrobat XI (11.0.04) Extended
  • OK = 動作する。
  • NO = 動作しない。 戻り値が0を返す。
  • - = 未確認。

 






サンプル:Excel のVBA

説明:Test01.PDFの全体ページを上下左右ともに同じサイズでトリミングし、別名で保存する。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。

 

Sub AcroExch_PDDoc_CropPages()

    Dim objAcroApp         As New Acrobat.AcroApp
    Dim objAcroAVDoc     As New Acrobat.AcroAVDoc
    Dim objAcroPDDoc     As Acrobat.AcroPDDoc
    Dim objAcroPDPage   As Acrobat.AcroPDPage
    Dim objAcroRect       As New Acrobat.AcroRect
    Dim objAcroPoint      As Acrobat.AcroPoint
    Dim lPageCount        As Long
    Dim lRet                  As Long
    
    'アクロバットを起動
    lRet = objAcroApp.Show
    'PDFファイルを開いて表示する
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    'PDDocを取得する
    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
    'ページ数を取得する
    lPageCount = objAcroPDDoc.GetNumPages()
    '最初のページのページサイズを取得する
    Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
    Set objAcroPoint = objAcroPDPage.GetSize
    
    '5mmをポイントにした値
    Const lPointSise As Long = 2.834 * 5
    'AcroRectオブジェクトにトリミング範囲を設定(上下左右-5mm)
    objAcroRect.Top = objAcroPoint.y - lPointSise
    objAcroRect.Left = lPointSise
    objAcroRect.Right = objAcroPoint.x - lPointSise
    objAcroRect.bottom = lPointSise
    'PDF全ページのトリミングを実行
    lRet = objAcroPDDoc.CropPages( _
        0, lPageCount - 1, 0, objAcroRect)
    
    '別名でPDFファイルを保存する
    objAcroPDDoc.Save _
        (PDSaveFull + PDSaveLinearized + _
        PDSaveCollectGarbage), _
        "E:¥Test01_T.pdf"
    '現在表示しているPDFファイルを変更無しで閉じる
    lRet = objAcroAVDoc.Close(1)
    'Acrobatアプリケーションを終了する。
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit
    
    'オブジェクトを強制開放する
    Set objAcroRect = Nothing
    Set objAcroPoint = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDDoc = Nothing
    Set objAcroAVDoc = Nothing
    Set objAcroApp = Nothing

End Sub

  

補足

  • コメントを頂いた「みや」さんの内容をほぼそのまま参考使用させて頂きました。
    この場の借りてお礼を申し上げます。m(_ _)m

 

動作確認環境

  • WindowsXP Pro(+ SP3) +
    Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate

 

戻る

「AcroExch.PDDoc: CropPages メソッド」への3件のフィードバック

  1. お世話になります。いつも参考にさせていただいております。ありがとうございます。

    現在,"Acrobat Proのメニューの「ページのトリミング」で余白を削除する"操作と同等のことをVBAから自動化できないかを模索しております。
    具体的には,PDFファイルを開いて,余白を削除して保存といったオペレーションになります。余白の大きさは対象ファイルによって様々です。

    当操作に関して,ご助言いただけると幸いです。よろしくお願いいたします。

  2. suzuさん。初めまして。

    「余白を削除」と言う(スバリ)機能はありません。
    (「余白を削除」はAcrobat v5.0からサポートされた機能です。)

    座標操作で同じように出来ないかとイロイロと思いましたが、計算まで持っていく過程が難しい・・・。
    「余白を削除」チェックボックスをオンにすれば言いだけなのですが、OLEはAcrobatが持っている機能の3%以下の事しか出来ないのが現状です。

    VBAならば、「悪魔の命令」 Sendkeys 命令でメニュー関連を操作(キーボード・エミュレーション)出来ますが、その間はパソコンが使用できない&失敗する場合が有ります。

    もう少し、・・・考えてみます。

  3. 管理人さん
    ご返信ありがとうございます。
    やはり,そうですか。。。
    現実的に難しいのであれば,運用(人手)でカバーしようかと思います。ご調査・ご確認いただき,ありがとうございます。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください