TOP > AcroExch.PDPage > GetSize [...]
説明
指定されたページのサイズ（幅,高さ）をポイント（Point）オブジェクトで返します。
形式
LPDISPATCH GetSize();
戻り値
- 高さ(x)と幅(y)を含んだAcroExch.Pointオブジェクトを返します。
単位はポイントです。
引数
- 無し。
動作するバージョン
| 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キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
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 '１ページ目のページサイズを取得する
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編)
補足
- １ミリ＝約2.834ポイント
- objAcroPoint.x と objAcroPoint.y の値はトリミング後の値です。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞