AcroExch.PDPage: GetSize メソッド

TOP > AcroExch.PDPage > GetSize      [...]


説明

指定されたページのサイズ(幅,高さ)をポイント(Point)オブジェクトで返します。

形式

LPDISPATCH GetSize();

戻り値

  • 高さ(x)と幅(y)を含んだAcroExch.Pointオブジェクトを返します。
    単位はポイントです。

引数

  1. 無し。

動作するバージョン

VersionAdobe
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
8OKAcrobat 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の1ページ目のサイズ(幅,高さ)をポイントオブジェクトで返します。

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

 

 

001 Sub AcroExch_PDPage_GetSize() 002 003 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 004 Dim objAcroPDDoc As Acrobat.AcroPDDoc 005 Dim objAcroPDPage As Acrobat.AcroPDPage 006 Dim objAcroPoint As Acrobat.AcroPoint 007 Dim lRet As Long 008 009 'PDFファイルを開いて表示する 010 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 011 'PDDocを取得する 012 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 013 '1ページ目のページサイズを取得する 014 Set objAcroPDPage = objAcroPDDoc.AcquirePage(0) 015 Set objAcroPoint = objAcroPDPage.GetSize 016 017 Debug.Print "objAcroPoint.x=" & objAcroPoint.x 018 Debug.Print "objAcroPoint.y=" & objAcroPoint.y 019 020 '現在表示しているPDFファイルを変更無しで閉じる 021 lRet = objAcroAVDoc.Close(1) 022 023 'オブジェクトを強制開放する 024 Set objAcroPoint = Nothing 025 Set objAcroPDPage = Nothing 026 Set objAcroPDDoc = Nothing 027 Set objAcroAVDoc = Nothing 028 029 End Sub


 Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
 

補足

  • 1ミリ=約2.834ポイント
  • objAcroPoint.x と objAcroPoint.y の値はトリミング後の値です。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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