TOP > AcroExch.AVPageView > *
説明
現在表示されているPDFドキュメントのズーム比をパーセントで返します。
形式
long GetZoom();
引数
- 無し。
戻り値
- 現在のズーム比。100％なら100が返されます。
動作するバージョン
| 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
補足
- 現在、画面に表示しているズーム比です。
初期画面設定でのズーム比ではありません。
Adobe Web 解説
OLE Automation / AcroExch.AVPageView / GetZoom (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞