TOP > IAC.BAS > avpShowToolBar
説明
- ツールバーの表示／非表示を行う。
Acrobat本体が起動されていようがいないが関係無く即座に反映される。
F8キーの操作と同じです。 - 定数（=3）：avpShowToolBar（設定値：Boolean）
- Appオブジェクトにおける GetPreferenceEx と SetPreferenceEx メソッドの第１引数に使用される。
設定値
- True ： ツールバーを表示する。
- False ： ツールバーを表示しない。
動作するバージョン
| Version | Adobe Acrobat | Adobe Reader | 備考 |
|---|---|---|---|
| 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 Option Explicit
002
003 '1000ミリ秒＝1秒単位で待ち時間を作る。
004 Public Declare Sub Sleep Lib "kernel32" _
005 (ByVal dwMilliseconds As Long)
006
007 Public Const avpShowToolBar = 3 'boolean
008 'ツールバーの表示／非表示を行う。
009
010 Private Sub Test_App_GetPreferenceEx3()
011
012 Dim objAcroApp As New Acrobat.AcroApp
013 Dim bRet As Boolean
014 Dim lRet As Long
015 With objAcroApp
016
017 'Acrobatアプリケーションを起動表示する
018 lRet = .Show
019 '特定のAcrobatアプリケーションの環境設定の
020 '値を取得する。
021 bRet = .GetPreferenceEx(avpShowToolBar)
022 Debug.Print _
023 "GetPreferenceEx(avpShowToolBar)=(" & _
024 .GetPreferenceEx(avpShowToolBar) & ")"
025
026 Call Sleep(2000) '２秒待つ
027 'ツールバーを非表示にする
028 bRet = .SetPreferenceEx(avpShowToolBar, False)
029 Call Sleep(2000) '２秒待つ
030 'ツールバーを表示にする。元に戻す。
031 bRet = .SetPreferenceEx(avpShowToolBar, True)
032 'DoEvents
033 Call Sleep(2000) '２秒待つ
034 'Acrobatアプリケーションを終了する。
035 lRet = .Hide
036 lRet = .Exit
037
038 End With
039 'PDFオブジェクトを強制解放する
040 Set objAcroApp = Nothing
041
042 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- アプリケーションメニューの操作と同じ事をします。
- iac.basの内容を参照。
- IAC.BASにある定数の説明一覧を参照。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞