TOP > AcroExch.AVPageView > GetZoom [...]
説明
現在表示されているPDFドキュメントのズーム比をパーセントとして得ます。
形式
long GetZoom();
引数
- 無し。
戻り値
- 現在のズーム比。100％なら100が返される。
動作するバージョン
| 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キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
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
＜ 戻る ＞