TOP > AcroExch.AVPageView > GetZoomType [...]
説明
現在、表示しているPDFページのズームタイプを得る。
形式
short GetZoomType();
引数
- 無し。
戻り値
- ズームタイプを現した数値。以下のどれか。
・AVZoomFitHeight(3) ： 高さに合わせる
・AVZoomFitPage(1) ： 全体表示
・AVZoomFitVisibleWidth(4) ： 描画領域の幅に合わせる
・AVZoomFitWidth(2) ： 幅に合わせる
・AVZoomNoVary(0) ： 第２引数のズーム比で表示 ※再調査
動作するバージョン
| 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_GetZoomType()
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 lGetZoomType 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 lGetZoomType = objAVPageView.GetZoomType
018 Debug.Print "ZoomType=" & lGetZoomType
019
020 '保存しないでPDFドキュメントを閉じる
021 lRet = objAcroAVDoc.Close(1)
022
023 'Acrobatを閉じる
024 lRet = objAcroApp.Hide
025 lRet = objAcroApp.Exit
026
027 'オブジェクトを強制解放する
028 Set objAcroAVDoc = Nothing
029 Set objAcroApp = Nothing
030
031 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- 「ZoomTo」参照。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞