AcroExch.App： GetActiveTool メソッド

TOP > AcroExch.App > GetActiveTool [...]

説明

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

形式

BSTR GetActiveTool();

引数

無し。

戻り値

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

動作するバージョン

Version	Adobe 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

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

テスト結果(1)

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

テスト結果(2)

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

補足

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

動作確認環境

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)

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

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

＜戻る＞

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

[ CTRL ] + [ + ] : 文字を大きく

[ CTRL ] + [ - ] : 文字を小さく

Shortcut Keys

[ CTRL ] + [ + ] : Up the font size

[ CTRL ] + [ - ] : Down the font size

PDF