AcroExch.App: Restore メソッド

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(一気に実行)でのテスト用に入れました。

 

Public Declare Sub Sleep Lib "kernel32" _
    (ByVal dwMilliseconds As Long)

Sub AcroExch_App_Restore()

    'Acrobatオブジェクトの定義&作成
    'Acrobat 4,5,6 の時
'    Dim objAcroApp   As Acrobat.CAcroApp
'    Dim objAcroPDDoc As Acrobat.CAcroPDDoc
'    Dim objAcroAVDoc As Acrobat.CAcroAVDoc
'
'    Set objAcroApp   = CreateObject("AcroExch.App")
'    Set objAcroPDDoc = CreateObject("AcroExch.PDDoc")
'    Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
    
    'Acrobat 7,8,9,10,11 の時
    Dim objAcroApp   As New Acrobat.AcroApp
    Dim objAcroPDDoc As New Acrobat.AcroPDDoc
    Dim objAcroAVDoc As New Acrobat.AcroAVDoc

    '以降はAcrobat全て共通
    Dim lRet        As Long     '戻り値
    Const CON_PDF_FILE = "C:¥work¥Test01.pdf"
    
    'Acrobatを起動する
    lRet = objAcroApp.Show
    'PDFドキュメントを開く
    lRet = objAcroPDDoc.Open(CON_PDF_FILE)
    'PDFドキュメントを画面表示する
    objAcroPDDoc.OpenAVDoc CON_PDF_FILE
    
    Sleep 4000    '4秒待つ:TEST用
    '最小化してタスクバーに隠す。
    lRet = objAcroApp.Minimize(1)
    Sleep 4000    '4秒待つ:TEST用
    '元のサイズに戻す
    lRet = objAcroApp.Restore(0)
    Sleep 4000    '4秒待つ:TEST用
    '最小化してタスクバーに隠す。
    lRet = objAcroApp.Minimize(1)
    Sleep 4000    '4秒待つ:TEST用
    '元のサイズに戻す。
    lRet = objAcroApp.Minimize(0)
    Sleep 4000    '4秒待つ:TEST用
    
    'PDFドキュメントを閉じる
    lRet = objAcroApp.CloseAllDocs
    'アプリケーションの終了
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit
    
    'オブジェクトの強制開放
    Set objAcroAVDoc = Nothing
    Set objAcroPDDoc = Nothing
    Set objAcroApp = Nothing
End Sub

   

補足

  • 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

 

戻る


キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ - ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ - ]  :  Down the font size

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は最低でも以下をお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン