AcroExch.PDPage: CopyToClipboard メソッド

TOP > AcroExch.PDPage > CopyToClipboard      [...]


説明

四方範囲を指定してPDFページ上をクリップボードにコピーする。

このメソッドは32ビットのシステム上だけ利用可能です。

クリップボード上は画像イメージで保存されています。

 

形式

VARIANT_BOOL CopyToClipboard(LPDISPATCH boundRect,
            short nXOrigin, 
            short nYOrigin, 
            short nZoom);

 

引数

  1. 第1引数(LPDISPATCH boundRect) :
    AcroRectオブジェクトでTop,bottom,Left,Rightを指定する。
  2. 第2引数(short nXOrigin) :
    コピーされるべきページのx-座標。
  3. 第3引数(short nYOrigin) :
    コピーされるべきページのy-座標。
  4. 第4引数(short nZoom) :
    コピーする倍率をパーセント指定する。
    例えば、1.0倍の場合は100を指定する。

 

戻り値

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

 

動作するバージョン

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の2ページ目全体をクリップボードにコピーします。

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

 

Sub AcroExch_PDPage_CopyToClipboard()

    Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
    Dim objAcroPDPage   As Acrobat.AcroPDPage
    Dim objAcroPoint    As Acrobat.AcroPoint
    Dim objAcroRect     As New Acrobat.AcroRect
    Dim lRet            As Long
    
    'PDFファイルを開いて表示する
    lRet = objAcroPDDoc.Open("E:¥Test01.pdf")
    '2ページ目のPDPageオブジェクトを取得する
    Set objAcroPDPage = objAcroPDDoc.AcquirePage(1)
    '指定されたページのサイズ(幅=x,高さ=y)を
    'ポイント(Point)オブジェクトで返します。
    Set objAcroPoint = objAcroPDPage.GetSize
    'ページ全体を範囲とする
    objAcroRect.Top = 0                 'トップ
    objAcroRect.bottom = objAcroPoint.y '底:792
    objAcroRect.Left = 0                '左
    objAcroRect.Right = objAcroPoint.x  '右:594
    'ページ全体をクリップボードに入れる
    lRet = objAcroPDPage.CopyToClipboard( _
                        objAcroRect, 0, 0, 100)
    '★この後でWord等のアプリケーションに
    ' 「貼り付け」又は「ペースト」を行う。
    
    '保存しないでPDFファイルを閉じる
    lRet = objAcroPDDoc.Close
    'オブジェクトを強制開放する
    Set objAcroRect = Nothing
    Set objAcroPoint = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDDoc = Nothing

End Sub

 

補足

  • objAcroRectオブジェクトのTop,bottom,Left,Rightの値に気をつける。
  • PDFの座標系はページの左下隅を基点としていますが、注釈の座標はページの左上隅を基点とします。

 

動作確認環境

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

 

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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