TOP > AcroExch.Rect > Top [...]
説明
PDF頁左最下部からのy-座標値を得るか、または設定します。
形式
[get/set] Short
動作するバージョン
| 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
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
- Excel VBA開発環境に「イミディエイト ウインドウ」(Ctrl+G) と
「ローカル ウインドウ」を表示しておくと動作確認がしやすいです。
001 Sub AcroExch_Rect_Top()
002
003 Dim objAcroApp As New Acrobat.AcroApp
004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
005 Dim objAcroPDDoc As Acrobat.AcroPDDoc
006 Dim objAcroPageView As Acrobat.AcroAVPageView
007 Dim objAcroRect As New Acrobat.AcroRect
008 Dim objPDTextSelect As Acrobat.AcroPDTextSelect
009 Dim lPageNumber As Long '処理頁番号
010 Dim lRet As Long '戻り値
011 Dim i As Long '添え字
012 Dim iEnd As Long 'Loop終了値
013
014 '初期設定
015 lPageNumber = 9 '処理頁番号 ※0から
016
017 'Acrobatアプリケーションを起動する。
018 lRet = objAcroApp.Show
019 'PDFファイルを開いて表示する｡
020 lRet = objAcroAVDoc.Open("E:¥save_as_xml.pdf", "")
021 'PDDocオブジェクトを取得する
022 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
023 'AVPageViewオブジェクトを取得する
024 Set objAcroPageView = objAcroAVDoc.GetAVPageView()
025 '指定ページ(10頁)に移動します。※０が開始頁
026 lRet = objAcroPageView.GoTo(lPageNumber)
027
028 '選択を示す長方形を作成する。頁左下部を起点。
029 objAcroRect.Top = 400 '上
030 objAcroRect.bottom = 100 '下
031 objAcroRect.Right = 300 '右
032 objAcroRect.Left = 100 '左
033
034 'objAcroRectで指定された範囲を選択する。
035 Set objPDTextSelect = objAcroPDDoc.CreateTextSelect(lPageNumber, objAcroRect)
036
037 '現在のテキスト選択としてそれを設定する。
038 'そしてテキスト選択状態を画面表示する｡
039 lRet = objAcroAVDoc.SetTextSelection(objPDTextSelect)
040 lRet = objAcroAVDoc.ShowTextSelect()
041
042 '文字を配列単位で表示する。※改行コードも含む。
043 Debug.Print "GetNumText()=(" & objPDTextSelect.GetNumText() & ")"
044 iEnd = objPDTextSelect.GetNumText() － 1
045 For i = 0 To iEnd
046 Debug.Print "GetText(" & i & ")=(" & objPDTextSelect.GetText(i) & ")"
047 Next
048
049 'PDFファイルを保存しないで閉じます｡
050 lRet = objAcroAVDoc.Close(1)
051
052 'Acrobatアプリケーションを終了する。
053 lRet = objAcroApp.Hide
054 lRet = objAcroApp.Exit
055
056 'オブジェクトを強制開放する。
057 Set objPDTextSelect = Nothing
058 Set objAcroPageView = Nothing
059 Set objAcroRect = Nothing
060 Set objAcroPDDoc = Nothing
061 Set objAcroAVDoc = Nothing
062 Set objAcroApp = Nothing
063
064 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- Bottomプロパティ値＜Topプロパティ値 でないとこの後のSetTextSelectionメソッド実行時にエラーが発生します。
Topプロパティ設定時はチェックしていません。 - PDFの座標系はページの左下隅を基点としていますが、注釈の座標はページの左上隅を基点とします。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞