TOP > AcroExch.AVPageView > ScrollTo [...]
説明
画面を指定ポイント(X,Y)でスクロールする。
形式
VARIANT_BOOL ScrollTo(short nX, short nY);
引数
- 第1引数(short nX) :
目的のX座標 - 第2引数(short nY):
目的のY座標
戻り値
- -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
説明:画面を指定ポイント(X,Y)でスクロールする。
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
001 Sub AcroExch_AVPageView_ScrollTo()
002
003 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
004 Dim objAVPageView As Acrobat.AcroAVPageView
005 Dim lRet As Long '戻り値
006 Dim x As Long
007 Dim y As Long
008
009 'PDFドキュメントを開く。Acrobatも起動する。
010 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
011 'AVPageViewオブジェクトを作成
012 Set objAVPageView = objAcroAVDoc.GetAVPageView
013 lRet = objAVPageView.Goto(2) '3頁に移動
014 '画面を指定ポイント(X,Y)でスクロールする
015 x = -50 '左(x)へ50ポイント
016 y = 200 '下(y)へ200ポイント
017 lRet = objAVPageView.ScrollTo(x, y)
018
019 '保存しないでPDFドキュメントを閉じる
020 lRet = objAcroAVDoc.Close(1)
021 'オブジェクトを強制解放する。Acrobatも終了する。
022 Set objAVPageView = Nothing
023 Set objAcroAVDoc = Nothing
024
025 End Sub
Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- 最終ページや先頭ページに至って、スクロール出来なくても戻り値は-1が返される。
- PDFの座標系はページの左下隅を基点としていますが、注釈の座標はページの左上隅を基点とします。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
< 戻る >