AcroExch.Rect: Right プロパティ

TOP > AcroExch.Rect > Right      [...]


説明

PDF頁の右側のx-座標を得るか、または設定します。

形式

[get/set] Short

動作するバージョン

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
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 Private Sub CommandButton22_Click() 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頁)に移動します。※0が開始頁 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 = _ 036 objAcroPDDoc.CreateTextSelect(lPageNumber, objAcroRect) 037 038 '現在のテキスト選択としてそれを設定する。 039 'そしてテキスト選択状態を画面表示する。 040 lRet = objAcroAVDoc.SetTextSelection(objPDTextSelect) 041 lRet = objAcroAVDoc.ShowTextSelect() 042 043 '文字を配列単位で表示する。※改行コードも含む。 044 Debug.Print "GetNumText()=(" & _ 045 objPDTextSelect.GetNumText() & ")" 046 iEnd = objPDTextSelect.GetNumText() - 1 047 For i = 0 To iEnd 048 Debug.Print "GetText(" & i _ 049 & ")=(" & objPDTextSelect.GetText(i) & ")" 050 Next 051 052 'PDFファイルを保存しないで閉じます。 053 lRet = objAcroAVDoc.Close(1) 054 055 'Acrobatアプリケーションを終了する。 056 lRet = objAcroApp.Hide 057 lRet = objAcroApp.Exit 058 059 'オブジェクトを強制開放する。 060 Set objPDTextSelect = Nothing 061 Set objAcroPageView = Nothing 062 Set objAcroRect = Nothing 063 Set objAcroPDDoc = Nothing 064 Set objAcroAVDoc = Nothing 065 Set objAcroApp = Nothing 066 067 End Sub 068


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

補足

  • 『Leftプロパティ値 < Rightプロパティ値』でないとこの後のSetTextSelectionメソッド実行時にエラーが発生します。
    Rightプロパティ設定時はチェックしていません。
  • OLEを行うとAcrobatが不安定になるので最後に一応オブジェクトを強制開放しています。
  • PDFの座標系はページの左下隅を基点としていますが、注釈の座標はページの左上隅を基点とします。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


★ 文章での質問は難しいですよネ。でも、早く解決して、家に帰りたい。


SAMURAI Plugin

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

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

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