AcroExch.PDAnnot: GetColor メソッド

TOP > AcroExch.PDAnnot > GetColor      [...]


説明

注釈の色(カラー番号)を得る。

形式

long GetColor();

引数

  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

説明:PDFファイルの表紙ページ目の注釈の全てのカラー番号を取得する。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。
001 Sub AcroExch_PDAnnot_GetColor() 002 003 Debug.Print "TEST_PDAnnot_GetColor:" & Now 004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 005 Dim objAcroPDDoc As Acrobat.AcroPDDoc 006 Dim objAcroPDPage As Acrobat.AcroPDPage 007 Dim objAcroPDAnnot As Acrobat.AcroPDAnnot 008 Dim lRet As Long '戻り値 009 Dim lAnnotsCnt As Long '注釈数 010 Dim j As Long '添え字 011 Dim lTextCnt As Long '件数 012 013 lTextCnt = 0 014 'PDFドキュメントを開いて表示する 015 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 016 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 017 '表紙のページ・オブジェクトを得る 018 Set objAcroPDPage = objAcroPDDoc.AcquirePage(0) 019 'ページに存在する注釈数を得る ★注意① 020 lAnnotsCnt = objAcroPDPage.GetNumAnnots() - 1 021 For j = 0 To lAnnotsCnt 022 Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j) 023 With objAcroPDAnnot 024 Debug.Print "Type(" & j & ")=" & .GetSubtype 025 Debug.Print "Text(" & j & ")=" & .GetContents 026 Debug.Print "カラー番号(" & j & ")=" & .GetColor 027 lTextCnt = lTextCnt + 1 028 End With 029 Next j 030 Debug.Print "件数=" & lTextCnt 031 032 'PDFファイルを保存しないで閉じる 033 lRet = objAcroAVDoc.Close(1) 034 'オブジェクトを強制解放する 035 Set objAcroAVDoc = Nothing 036 Set objAcroPDAnnot = Nothing 037 Set objAcroPDPage = Nothing 038 Set objAcroPDDoc = Nothing 039 040 End Sub


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

 

実行結果


TEST_PDAnnot_GetColor:2008/08/05 11:29:32
Type(0)=Text
Text(0)=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。(1)
カラー番号(0)=65535
Type(1)=Popup
Text(1)=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。(1)
カラー番号(1)=65535
Type(2)=Text
Text(2)=2/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
カラー番号(2)=65535
Type(3)=Popup
Text(3)=2/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
カラー番号(3)=65535
件数=4

※下記はPDFビュアーの表紙ページの一部です。

PDF表紙ページに注釈

補足

  • カラー番号は「サンプル:RGB値の一覧(カラー番号)」を参照。
  • 「★注意①」は動作不良を起す時がある。但し、
    このパターンのサンプルコードの場合は動作不良を起す事は今までに無い。
    ※ループで全ページを扱うパターンの場合は動作不良を起こす確率90%以上。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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



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

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