TOP > AcroExch.App > MenuItemRemove [...]
説明
Acrobatアプリケーションの指定されたメニュー項目を一時的に削除します。
よって手動でAcrobatからのメニュー操作は出来なくなります。
但しAcrobatアプリケーションを(正常)終了すると一時的に削除されたメニュー項目は元に戻ります。
注意:当メソッドの逆操作するメソッドは存在しません。(見当たりません) |
形式
VARIANT_BOOL MenuItemRemove(BSTR szMenuItemName);
引数
- 第1引数(BSTR szMenuItemName):
Acrobatアプリケーションのメニュー項目を英文字で指定する。
戻り値
- -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キーでステップ実行して動作確認します。 - IRetに「ウォッチ式の追加」で「式の内容が変化した時に中断」にしておくと、以下のサンプルはテストがしやすい。
- 以下のテストで使用したメニューの項目名はAcrobat v8.0 SDKから得たものです。
001 Sub AcroExch_App_MenuItemRemove()
002
003 'Acrobatオブジェクトの定義&作成
004 'Acrobat 4,5,6 の時
005 ' Dim objAcroApp As Acrobat.CAcroApp
006 ' Dim objAcroPDDoc As Acrobat.CAcroPDDoc
007 ' Dim objAcroAVDoc As Acrobat.CAcroAVDoc
008 '
009 ' Set objAcroApp = CreateObject("AcroExch.App")
010 ' Set objAcroPDDoc = CreateObject("AcroExch.PDDoc")
011 ' Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
012
013 'Acrobat 7,8,9,10,11 の時
014 Dim objAcroApp As New Acrobat.AcroApp
015 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
016 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
017
018 '以降はAcrobat全て共通
019 Dim lRet As Long
020 Const CON_PDF_FILE = "C:\work\Test01.pdf"
021
022 lRet = objAcroApp.Show
023 lRet = objAcroPDDoc.Open(CON_PDF_FILE)
024 objAcroPDDoc.OpenAVDoc CON_PDF_FILE
025
026 'アプリケーションの全メニュー項目名を指定
027 lRet = objAcroApp.MenuItemRemove("Open") 'lRet = -1
028 lRet = objAcroApp.MenuItemRemove("NewDocFromFile") 'lRet = -1
029 lRet = objAcroApp.MenuItemRemove("NewDocFromMultiple")
030 lRet = objAcroApp.MenuItemRemove("Scan") 'lRet = -1
031 lRet = objAcroApp.MenuItemRemove("OpnURL")
032 lRet = objAcroApp.MenuItemRemove("ImageConversion")
033 lRet = objAcroApp.MenuItemRemove("OpenOrganizer") 'lRet = -1
034 lRet = objAcroApp.MenuItemRemove("AddToOrganizer") 'lRet = -1
035 lRet = objAcroApp.MenuItemRemove("OrganizerFavorites") 'lRet = -1
036 lRet = objAcroApp.MenuItemRemove("SendMail")
037 lRet = objAcroApp.MenuItemRemove("endSendGroup") 'lRet = -1
038 lRet = objAcroApp.MenuItemRemove("Close") 'lRet = -1
039 lRet = objAcroApp.MenuItemRemove("Save") 'lRet = -1
040 lRet = objAcroApp.MenuItemRemove("SaveAs") 'lRet = -1
041 lRet = objAcroApp.MenuItemRemove("SaveAndAuthenticate")
042 lRet = objAcroApp.MenuItemRemove("Revert") 'lRet = -1
043 lRet = objAcroApp.MenuItemRemove("endSaveGroup") 'lRet = -1
044 lRet = objAcroApp.MenuItemRemove("ReduceFileSize") 'lRet = -1
045 lRet = objAcroApp.MenuItemRemove("endOptimizeGroup") 'lRet = -1
046 lRet = objAcroApp.MenuItemRemove("SendForReviewMenu")
047 lRet = objAcroApp.MenuItemRemove("SendForReview")
048 lRet = objAcroApp.MenuItemRemove("BrowserBasedReview")
049 lRet = objAcroApp.MenuItemRemove("Separator") 'lRet = -1
050 lRet = objAcroApp.MenuItemRemove("File_FormData")
051 lRet = objAcroApp.MenuItemRemove("FormData_CollectData")
052 lRet = objAcroApp.MenuItemRemove("FormData_CreateSpreadsheet")
053 lRet = objAcroApp.MenuItemRemove("FormData_ImportData")
054 lRet = objAcroApp.MenuItemRemove("FormData_ExportData")
055 lRet = objAcroApp.MenuItemRemove("Separator") 'lRet = -1
056 lRet = objAcroApp.MenuItemRemove("FormData_HowTo")
057 lRet = objAcroApp.MenuItemRemove("endFormDataGroup") 'lRet = -1
058 lRet = objAcroApp.MenuItemRemove("GeneralInfo") 'lRet = -1
059 lRet = objAcroApp.MenuItemRemove("endDocInfoGroup") 'lRet = -1
060 lRet = objAcroApp.MenuItemRemove("PageSetup") 'lRet = -1
061 lRet = objAcroApp.MenuItemRemove("Print") 'lRet = -1
062 lRet = objAcroApp.MenuItemRemove("PrintWithComments")
063 lRet = objAcroApp.MenuItemRemove("EFIPrintMe")
064 lRet = objAcroApp.MenuItemRemove("endPrintGroup") 'lRet = -1
065 lRet = objAcroApp.MenuItemRemove("OrganizerHistory") 'lRet = -1
066 lRet = objAcroApp.MenuItemRemove("Separator") 'lRet = -1
067 lRet = objAcroApp.MenuItemRemove("OpenOrganizer")
068 lRet = objAcroApp.MenuItemRemove("RecentFile1") 'lRet = -1
069 lRet = objAcroApp.MenuItemRemove("RecentFile2")
070 lRet = objAcroApp.MenuItemRemove("RecentFile3")
071 lRet = objAcroApp.MenuItemRemove("RecentFile4")
072 lRet = objAcroApp.MenuItemRemove("RecentFile5")
073 lRet = objAcroApp.MenuItemRemove("endRecentFileGroup") 'lRet = -1
074 lRet = objAcroApp.MenuItemRemove("Quit") 'lRet = -1
075
076 '念の為にアプリケーションの全ツールバーの項目名を指定してみる
077 lRet = objAcroApp.MenuItemRemove("Open")
078 lRet = objAcroApp.MenuItemRemove("OpStatTlButton")
079 lRet = objAcroApp.MenuItemRemove("Save")
080 lRet = objAcroApp.MenuItemRemove("SaveFileAs")
081 lRet = objAcroApp.MenuItemRemove("Print") '-1
082 lRet = objAcroApp.MenuItemRemove("AddToOrganizer")
083 lRet = objAcroApp.MenuItemRemove("Organizer") '-1
084 lRet = objAcroApp.MenuItemRemove("AddAttachments")
085 lRet = objAcroApp.MenuItemRemove("FileAttachment")
086 lRet = objAcroApp.MenuItemRemove("SendMail")
087 lRet = objAcroApp.MenuItemRemove("FindDialog")
088 lRet = objAcroApp.MenuItemRemove("endDialogGroup")
089 lRet = objAcroApp.MenuItemRemove("NewDocumentTask") 'lRet = -1
090 lRet = objAcroApp.MenuItemRemove("CommentTask") 'lRet = -1
091 lRet = objAcroApp.MenuItemRemove("Initiate")
092 lRet = objAcroApp.MenuItemRemove("SecureTask") 'lRet = -1
093 lRet = objAcroApp.MenuItemRemove("SignTask") 'lRet = -1
094 lRet = objAcroApp.MenuItemRemove("FormTasks")
095 lRet = objAcroApp.MenuItemRemove("Hand")
096 lRet = objAcroApp.MenuItemRemove("Select")
097 lRet = objAcroApp.MenuItemRemove("SelectGraphics")
098 lRet = objAcroApp.MenuItemRemove("endSelectToolsGroup")
099 lRet = objAcroApp.MenuItemRemove("ZoomIn")
100 lRet = objAcroApp.MenuItemRemove("ZoomOut")
101 lRet = objAcroApp.MenuItemRemove("ZoomDrag")
102 lRet = objAcroApp.MenuItemRemove("Loupe")
103 lRet = objAcroApp.MenuItemRemove("Zoom100")
104 lRet = objAcroApp.MenuItemRemove("FitPage") 'lRet = -1
105 lRet = objAcroApp.MenuItemRemove("FitVisible") 'lRet = -1
106 lRet = objAcroApp.MenuItemRemove("ZoomViewOut") 'lRet = -1
107 lRet = objAcroApp.MenuItemRemove("ZoomTo") 'lRet = -1
108 lRet = objAcroApp.MenuItemRemove("ZoomViewIn") 'lRet = -1
109 lRet = objAcroApp.MenuItemRemove("RotateCW") 'lRet = -1
110 lRet = objAcroApp.MenuItemRemove("RotateCCW") 'lRet = -1
111 lRet = objAcroApp.MenuItemRemove("endRotateViewGroup")
112 lRet = objAcroApp.MenuItemRemove("HowTo")
113 lRet = objAcroApp.MenuItemRemove("FindEdit")
114 lRet = objAcroApp.MenuItemRemove("WebSearchView")
115 lRet = objAcroApp.MenuItemRemove("Text")
116 lRet = objAcroApp.MenuItemRemove("TextEdits")
117 lRet = objAcroApp.MenuItemRemove("Stamp")
118 lRet = objAcroApp.MenuItemRemove("Highlight")
119 lRet = objAcroApp.MenuItemRemove("Underline")
120 lRet = objAcroApp.MenuItemRemove("StrikeOut")
121 lRet = objAcroApp.MenuItemRemove("FileAttachmentReal")
122 lRet = objAcroApp.MenuItemRemove("Sound")
123 lRet = objAcroApp.MenuItemRemove("Separator") 'lRet = -1
124 lRet = objAcroApp.MenuItemRemove("Filter")
125
126 'PDFドキュメントを閉じる ※必須
127 lRet = objAcroApp.CloseAllDocs 'lRet = -1
128 'アプリケーションの終了
129 lRet = objAcroApp.Hide 'lRet = -1
130 lRet = objAcroApp.Exit 'lRet = 0
131
132 'オブジェクトの強制開放
133 Set objAcroAVDoc = Nothing
134 Set objAcroPDDoc = Nothing
135 Set objAcroApp = Nothing
136 End Sub
Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
テスト結果
- AcrobatアプリケーションでPDFドキュメントを開いた直後のファイル・メニューの内容。 「印刷(P)」、「終了(X)」等に注目。
- MenuItemRemove メソッドを全て実行して、Acrobatアプリケーションを終了する前のファイル・メニューの内容。
但し、Acrobatアプリケーションを終了すると元に戻ります。
補足
- メニュー項目のみ操作します。
- メニュー項目を復元するメソッドは見当たりません。
- Acrobatアプリケーションが稼働中の場合のみ当メソッドは一時的に有効となります。
Acrobatアプリケーションが終了すると無効になります。 - 引数はメニュー項目の(言語に依存しない英語の)名前を指定します。
- メニュー項目名がどのメニューに相当するかのSDK資料が無いので、テストして調べるしか手は無いです。
※ 誰か、お時間のある方、テスト結果を頂けませんか?
動作確認環境
- 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
< 戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
|