TOP > AcroExch.App > Restore      [...]

---

説明

Acrobatアプリケーションが最大化又は最小化されていれば、元の位置とサイズにAcrobatアプリケーションを表示します。

更にデスクトップ画面の最前列に表示して操作可能なアクティブ画面にします。

形式

VARIANT_BOOL Restore(long bRestore);

引数

• 第一引数(long bRestore) 
  数字ならなんでもOK ： 元のサイズに戻し、アクティブ画面にする。 省略不可。
  ※WEB Acrobat v9.1 SDKには0は不可とあるが、実際は数字ならなんでもOKです。 

戻り値

• -1 ： True(真)で成功
• 0 ： False(偽)で失敗

動作するバージョン

Version	Adobe Acrobat	備考
4	OK	Acrobat 4.0    ※Windows 98SE + Excel 2000
5	OK	Acrobat 5.0.5
6	OK	Acrobat 6.0.3 Pro
7	OK	Acrobat 7.0.9 Pro Acrobat 7.1.4 Pro
8	OK	Acrobat 8.2.2 Pro
9	OK	Acrobat 9.3.2 Extended
10	-	Acrobat X (10.1.8) Extended
11	-	Acrobat XI (11.0.04) Extended

• OK = 動作する。
• NO = 動作しない。
• - = 未確認。

---

サンプル：ExcelのVBA

説明：Acrobatアプリケーションで最小化したり、元のサイズの戻したりする。

• 参照設定を事前に行う。
• 以下のサンプルはテスト用です。
  F8キーでステップ実行して動作確認します。
• Sleep関数はF5（一気に実行）でのテスト用に入れました。

　

　

001 Public Declare Sub Sleep Lib "kernel32" _ 002 (ByVal dwMilliseconds As Long) 003 004 Sub AcroExch_App_Restore() 005 006 'Acrobatオブジェクトの定義＆作成 007 'Acrobat 4,5,6 の時 008 ' Dim objAcroApp As Acrobat.CAcroApp 009 ' Dim objAcroPDDoc As Acrobat.CAcroPDDoc 010 ' Dim objAcroAVDoc As Acrobat.CAcroAVDoc 011 ' 012 ' Set objAcroApp = CreateObject("AcroExch.App") 013 ' Set objAcroPDDoc = CreateObject("AcroExch.PDDoc") 014 ' Set objAcroAVDoc = CreateObject("AcroExch.AVDoc") 015 016 'Acrobat 7,8,9,10,11 の時 017 Dim objAcroApp As New Acrobat.AcroApp 018 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 019 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 020 021 '以降はAcrobat全て共通 022 Dim lRet As Long '戻り値 023 Const CON_PDF_FILE = "C:\work\Test01.pdf" 024 025 'Acrobatを起動する 026 lRet = objAcroApp.Show 027 'PDFドキュメントを開く 028 lRet = objAcroPDDoc.Open(CON_PDF_FILE) 029 'PDFドキュメントを画面表示する 030 objAcroPDDoc.OpenAVDoc CON_PDF_FILE 031 032 Sleep 4000 '4秒待つ：TEST用 033 '最小化してタスクバーに隠す。 034 lRet = objAcroApp.Minimize(1) 035 Sleep 4000 '4秒待つ：TEST用 036 '元のサイズに戻す 037 lRet = objAcroApp.Restore(0) 038 Sleep 4000 '4秒待つ：TEST用 039 '最小化してタスクバーに隠す。 040 lRet = objAcroApp.Minimize(1) 041 Sleep 4000 '4秒待つ：TEST用 042 '元のサイズに戻す。 043 lRet = objAcroApp.Minimize(0) 044 Sleep 4000 '4秒待つ：TEST用 045 046 'PDFドキュメントを閉じる 047 lRet = objAcroApp.CloseAllDocs 048 'アプリケーションの終了 049 lRet = objAcroApp.Hide 050 lRet = objAcroApp.Exit 051 052 'オブジェクトの強制開放 053 Set objAcroAVDoc = Nothing 054 Set objAcroPDDoc = Nothing 055 Set objAcroApp = Nothing 056 End Sub

　Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
　

補足

• Minimize(0)メソッドと同じ動きをする。
• 第一引数は数字なら何でもOKです。 

動作確認環境

• Windows98SE( + WindowsUpdate) +
  Acrobat 4.0 + Office 2000
• WindowsXP Pro( + SP3 + WindowsUpdate) +
  Acrobat 5.0.5  + Office 2003
• WindowsXP Pro( + SP3 + WindowsUpdate) +
  Acrobat 6.0.3 Pro + Office 2003
• WindowsXP Pro( + SP2 + WindowsUpdate) +
  Acrobat 7.0.9 Pro + Office 2003
• WindowsXP Pro( + SP3 + WindowsUpdate) +
  Acrobat 7.1.4 Pro + Office 2003( + SP3)
• WindowsXP Pro( + SP3 + WindowsUpdate) +
  Acrobat 8.2.2 Pro + Office 2003( + SP3)
• WindowsXP Pro( + SP3 + WindowsUpdate) +
  Acrobat 9.3.2 Extended + Office 2003( + SP3) 

Adobe Web 解説 URL(英語) v9.1

http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/IAC_API_OLE_Objects.103.23.html

＜ 戻る ＞

---

ブラウザ画面の文字サイズを変更するショートカットキー [ CTRL ] + [ + ]  :  文字を大きく [ CTRL ] + [ - ]  :  文字を小さく Shortcut Keys [ CTRL ] + [ + ]  :  Up the font size [ CTRL ] + [ - ]  :  Down the font size