AcroExch.AVPageView: GetZoom メソッド

TOP > AcroExch.AVPageView > GetZoom      [...]


説明

現在表示されているPDFドキュメントのズーム比をパーセントとして得ます。

形式

long GetZoom();

引数

  1. 無し。

戻り値

  • 現在のズーム比。100%なら100が返される。

動作するバージョン

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

説明:現在のズーム値を得る。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。
001 Sub AcroExch_AVPageView_GetZoom() 002 003 Dim objAcroApp As New Acrobat.AcroApp 004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 005 Dim objAVPageView As Acrobat.AcroAVPageView 006 Dim lRet As Long '戻り値 007 Dim lGetZoom As Long 008 009 'Acrobatを起動表示する 010 lRet = objAcroApp.Show 011 'PDFドキュメントを開く 012 lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "") 013 'AVPageViewオブジェクトを作成する 014 Set objAVPageView = objAcroAVDoc.GetAVPageView 015 016 '現在のズーム値を得る 017 lGetZoom = objAVPageView.GetZoom 018 Debug.Print "Zoom=" & lGetZoom & "%" 019 020 'Acrobatを閉じる 021 lRet = objAcroApp.Hide 022 lRet = objAcroApp.Exit 023 'オブジェクトを強制解放する 024 Set objAcroAVDoc = Nothing 025 Set objAcroApp = Nothing 026 027 End Sub


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

 

補足

  • 現在、画面に表示しているズーム比です。
    初期画面設定でのズーム比ではありません。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA



SAMURAI Plugin

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

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



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

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