TOP > AcroExch.AVDoc > *
説明
PDFドキュメントを表示している画面のサイズと位置を変更します。※FrameとはPDFドキュメントを表示している画面全体を示しているみたいです。
形式
VARIANT_BOOL SetFrame(LPDISPATCH iAcroRect);
引数
- 第１引数(LPDISPATCH iAcroRect) ：
AcroRectオブジェクト（Top,bottom,Right,Left）
戻り値
- 常に－１が返る。
動作するバージョン
| 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
PDFドキュメントを表示している画面のサイズと位置を変更する
- 事前に参照設定をします。
- F8キーでステップ実行しながら動作確認します。
001 Sub AcroExch_AVDoc_SetFrame()
002
003 Dim objAcroApp As New Acrobat.AcroApp
004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
005 Dim objAcroRect As Acrobat.AcroRect
006 Dim lRet As Long
007
008 'Acrobatアプリケーションを起動する。
009 lRet = objAcroApp.Show
010 'PDFファイルを開いて表示する。
011 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
012
013 'Rectオブジェクトを取得する。
014 Set objAcroRect = objAcroAVDoc.GetFrame()
015 'Rectオブジェクトの全プロパティを表示する。
016 With objAcroRect
017 Debug.Print "Rect.Top=" & .Top & vbCrLf & _
018 "Rect.bottom=" & .bottom & vbCrLf & _
019 "Rect.Left=" & .Left & vbCrLf & _
020 "Rect.right=" & .Right
021 End With
022 'AcroRectオブジェクトを変更する
023 With objAcroRect
024 .Top = 40
025 .bottom = 700
026 .Left = 40
027 .Right = 1000
028 End With
029 'Windowsサイズのセットと位置を変更する
030 lRet = objAcroAVDoc.SetFrame(objAcroRect)
031
032 'PDFファイルを閉じます。
033 lRet = objAcroAVDoc.Close(1)
034
035 'Acrobatアプリケーションを終了する。
036 lRet = objAcroApp.Hide
037 lRet = objAcroApp.Exit
038
039 'PDFオブジェクトを強制解放する
040 Set objAcroRect = Nothing
041 Set objAcroAVDoc = Nothing
042 Set objAcroApp = Nothing
043
044 End Sub
補足
- PDFドキュメントを表示している画面サイズが上記サンプルで動的に変化するのが確認できる。
Adobe Web 解説
OLE Automation / AcroExch.AVDoc / SetFrame (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞