AcroExch.App： GetActiveTool メソッド

TOP > AcroExch.App > *

説明

Acrobatアプリケーションのツールバーで選択状態になっているツール名を取得します。

形式

BSTR GetActiveTool();

引数

無し。

戻り値

戻り値がNULL（空文字）の時はツールが選択されてないです。しかし、そうゆう場合は無いと思われます。デフォルトで選択ボタン又は手・状態になっているはずです。

動作するバージョン

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

OK：動作します。
NO：動作しない。戻り値が0を返します。
(Hand)、(Select) はAcrobatアプリケーションを未起動状態でテストした結果です。デフォルトみたいです。
― ：未確認。

サンプル：ExcelのVBA

現在のAcrobatアプリケーションのツールバーで選択状態になっているツール名を取得します。

参照設定を事前に行ないます。
以下のサンプルはテスト用です。
F8キーでステップ実行して動作確認します。
事前にAcrobatアプリケーションを起動しておくとテスト結果が確認しやすい。

001 Sub AcroExch_App_GetActiveTool()
002 
003     'Acrobat 4,5,6 の時
004 '    Dim objAcroApp   As Acrobat.CAcroApp
005 '    Set objAcroApp   = CreateObject("AcroExch.App")
006     
007     'Acrobat 7,8,9,10,11 の時
008     Dim objAcroApp   As New Acrobat.AcroApp
009 
010     '以降はAcrobat全て共通
011     Dim strName As String   'ツール名
012      
013     strName = objAcroApp.GetActiveTool()
014     MsgBox "GetActiveTool Name = (" & strName & ")"
015      
016     'オブジェクトの強制開放
017     Set objAcroApp = Nothing
018 
019 End Sub

テスト結果(1)

「選択」ツールがアクティブ状態の時。Acrobat v8 v9 ではデフォルトみたいです。

テスト結果(2)

「手(ハンド)」ツールがアクティブ状態の時。Acrobat v4 ～ v7 ではデフォルトみたいです。

補足

戻り値のツール名はココを参照します。
Acrobaｔアプリケーションが起動されていなければ、メモリ上に起動されます。画面にもタスクバーにも表示されません。タスクマネージャー上では見えます。
「メニュー」と「ツールバー」の呼び名の違いを以下の画像で再確認します。

Adobe Web 解説

OLE Automation / AcroExch.App / GetActiveTool (公式サイト・英語)

動作確認環境

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( + SP3)
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)

＜戻る＞

PDF