説明
ツールバーの表示／非表示を扱います。Acrobat本体が起動されていようがいないが関係無く即座に反映されます。F8キーの操作と同じです。
- 定数（=3）：avpShowToolBar（設定値：Boolean）
- Appオブジェクトにおける GetPreferenceEx と SetPreferenceEx メソッドの第１引数に使用されます。
設定値
- True ： ツールバーを表示します。
- False ： ツールバーを表示しない。
動作するバージョン
| 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 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
補足
- アプリケーションメニューの操作と同じ事をします。
- iac.basファイルを参照。
- IAC.BASにある定数の説明一覧を参照。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞