AcroExch.App: MenuItemIsMarked メソッド

TOP > AcroExch.App > MenuItemIsMarked      [...]


説明

Acrobatアプリケーションの指定されたメニュー項目に(チェック)マークを付けます。

※多分:例としては「表示」->「ツールバー」のメニューにマークをしてツールバーを表示します。

Acrobat SDK v8.0 の解説を見ると「アプリケーション・メニューにマークを付ける」、と解説しています。 これはメニューでチェックマークが付けれるメニュー項目を示していると思われます。
しかし、全てのメニュー項目名を指定してテストをしたがマークを付ける事が出来ませんでした。 SDKの英語解釈のミスか、OLEの動作不良か。

形式

VARIANT_BOOL MenuItemIsMarked(BSTR szMenuItemName);

引数

  1. 第1引数(BSTR szMenuItemName):
    Acrobatアプリケーションのメニュー項目を英文字で指定する。
    詳細は Menu and Toolbar Button Names 一覧 を参照。

戻り値

  • -1 : True(真)で成功し、マーク出来た。
  • 0 : False(偽)で失敗した。
    又は実行出来ないメニュー項目なのでマーク出来なかった。

動作するバージョン

VersionAdobe
Acrobat
備考
4NOAcrobat 4.0    ※Windows 98SE + Excel 2000
5
NO
Acrobat 5.0.5
6
NO
Acrobat 6.0.3 Pro
7NOAcrobat 7.0.9 Pro
Acrobat 7.1.4 Pro
8NOAcrobat 8.2.1 Pro
9NOAcrobat 9.3.1 Extended
10-Acrobat X (10.1.8) Extended
11-Acrobat XI (11.0.04) Extended
  • OK = 動作する。
  • NO = 動作しない。
  • - = 未確認。

サンプル:ExcelのVBA

説明:Acrobatアプリケーションでチェックマークが付けれるメニュー項目名を調べる。

  • 参照設定を事前に行う。
  • 以下のサンプルはテスト用です。
    F8キーでステップ実行して動作確認します。
  • IRetに「ウォッチ式の追加」で「式の内容が変化した時に中断」にしておくと、以下のサンプルはテストがしやすい。 
001 Sub AcroExch_App_MenuItemIsMarked() 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.MenuItemIsMarked("Open") 028 lRet = objAcroApp.MenuItemIsMarked("NewDocFromFile") 029 lRet = objAcroApp.MenuItemIsMarked("NewDocFromMultiple") 030 lRet = objAcroApp.MenuItemIsMarked("Scan") 031 lRet = objAcroApp.MenuItemIsMarked("OpnURL") 032 lRet = objAcroApp.MenuItemIsMarked("ImageConversion") 033 lRet = objAcroApp.MenuItemIsMarked("OpenOrganizer") 034 lRet = objAcroApp.MenuItemIsMarked("AddToOrganizer") 035 lRet = objAcroApp.MenuItemIsMarked("OrganizerFavorites") 036 lRet = objAcroApp.MenuItemIsMarked("SendMail") 037 lRet = objAcroApp.MenuItemIsMarked("endSendGroup") 038 lRet = objAcroApp.MenuItemIsMarked("Close") 039 lRet = objAcroApp.MenuItemIsMarked("Save") 040 lRet = objAcroApp.MenuItemIsMarked("SaveAs") 041 lRet = objAcroApp.MenuItemIsMarked("SaveAndAuthenticate") 042 lRet = objAcroApp.MenuItemIsMarked("Revert") 043 lRet = objAcroApp.MenuItemIsMarked("endSaveGroup") 044 lRet = objAcroApp.MenuItemIsMarked("ReduceFileSize") 045 lRet = objAcroApp.MenuItemIsMarked("endOptimizeGroup") 046 lRet = objAcroApp.MenuItemIsMarked("SendForReviewMenu") 047 lRet = objAcroApp.MenuItemIsMarked("SendForReview") 048 lRet = objAcroApp.MenuItemIsMarked("BrowserBasedReview") 049 lRet = objAcroApp.MenuItemIsMarked("Separator") 050 lRet = objAcroApp.MenuItemIsMarked("File_FormData") 051 lRet = objAcroApp.MenuItemIsMarked("FormData_CollectData") 052 lRet = objAcroApp.MenuItemIsMarked("FormData_CreateSpreadsheet") 053 lRet = objAcroApp.MenuItemIsMarked("FormData_ImportData") 054 lRet = objAcroApp.MenuItemIsMarked("FormData_ExportData") 055 lRet = objAcroApp.MenuItemIsMarked("Separator") 056 lRet = objAcroApp.MenuItemIsMarked("FormData_HowTo") 057 lRet = objAcroApp.MenuItemIsMarked("endFormDataGroup") 058 lRet = objAcroApp.MenuItemIsMarked("GeneralInfo") 059 lRet = objAcroApp.MenuItemIsMarked("endDocInfoGroup") 060 lRet = objAcroApp.MenuItemIsMarked("PageSetup") 061 lRet = objAcroApp.MenuItemIsMarked("Print") 062 lRet = objAcroApp.MenuItemIsMarked("PrintWithComments") 063 lRet = objAcroApp.MenuItemIsMarked("EFIPrintMe") 064 lRet = objAcroApp.MenuItemIsMarked("endPrintGroup") 065 lRet = objAcroApp.MenuItemIsMarked("OrganizerHistory") 066 lRet = objAcroApp.MenuItemIsMarked("Separator") 067 lRet = objAcroApp.MenuItemIsMarked("OpenOrganizer") 068 lRet = objAcroApp.MenuItemIsMarked("RecentFile1") 069 lRet = objAcroApp.MenuItemIsMarked("RecentFile2") 070 lRet = objAcroApp.MenuItemIsMarked("RecentFile3") 071 lRet = objAcroApp.MenuItemIsMarked("RecentFile4") 072 lRet = objAcroApp.MenuItemIsMarked("RecentFile5") 073 lRet = objAcroApp.MenuItemIsMarked("endRecentFileGroup") 074 lRet = objAcroApp.MenuItemIsMarked("Quit") 075 076 '念の為にアプリケーションの全ツールバーの項目名を指定してみる 077 lRet = objAcroApp.MenuItemIsMarked("Open") 078 lRet = objAcroApp.MenuItemIsMarked("OpStatTlButton") 079 lRet = objAcroApp.MenuItemIsMarked("Save") 080 lRet = objAcroApp.MenuItemIsMarked("SaveFileAs") 081 lRet = objAcroApp.MenuItemIsMarked("Print") 082 lRet = objAcroApp.MenuItemIsMarked("AddToOrganizer") 083 lRet = objAcroApp.MenuItemIsMarked("Organizer") 084 lRet = objAcroApp.MenuItemIsMarked("AddAttachments") 085 lRet = objAcroApp.MenuItemIsMarked("FileAttachment") 086 lRet = objAcroApp.MenuItemIsMarked("SendMail") 087 lRet = objAcroApp.MenuItemIsMarked("FindDialog") 088 lRet = objAcroApp.MenuItemIsMarked("endDialogGroup") 089 lRet = objAcroApp.MenuItemIsMarked("NewDocumentTask") 090 lRet = objAcroApp.MenuItemIsMarked("CommentTask") 091 lRet = objAcroApp.MenuItemIsMarked("Initiate") 092 lRet = objAcroApp.MenuItemIsMarked("SecureTask") 093 lRet = objAcroApp.MenuItemIsMarked("SignTask") 094 lRet = objAcroApp.MenuItemIsMarked("FormTasks") 095 lRet = objAcroApp.MenuItemIsMarked("Hand") 096 lRet = objAcroApp.MenuItemIsMarked("Select") 097 lRet = objAcroApp.MenuItemIsMarked("SelectGraphics") 098 lRet = objAcroApp.MenuItemIsMarked("endSelectToolsGroup") 099 lRet = objAcroApp.MenuItemIsMarked("ZoomIn") 100 lRet = objAcroApp.MenuItemIsMarked("ZoomOut") 101 lRet = objAcroApp.MenuItemIsMarked("ZoomDrag") 102 lRet = objAcroApp.MenuItemIsMarked("Loupe") 103 lRet = objAcroApp.MenuItemIsMarked("Zoom100") 104 lRet = objAcroApp.MenuItemIsMarked("FitPage") 105 lRet = objAcroApp.MenuItemIsMarked("FitVisible") 106 lRet = objAcroApp.MenuItemIsMarked("ZoomViewOut") 107 lRet = objAcroApp.MenuItemIsMarked("ZoomTo") 108 lRet = objAcroApp.MenuItemIsMarked("ZoomViewIn") 109 lRet = objAcroApp.MenuItemIsMarked("RotateCW") 110 lRet = objAcroApp.MenuItemIsMarked("RotateCCW") 111 lRet = objAcroApp.MenuItemIsMarked("endRotateViewGroup") 112 lRet = objAcroApp.MenuItemIsMarked("HowTo") 113 lRet = objAcroApp.MenuItemIsMarked("FindEdit") 114 lRet = objAcroApp.MenuItemIsMarked("WebSearchView") 115 lRet = objAcroApp.MenuItemIsMarked("Text") 116 lRet = objAcroApp.MenuItemIsMarked("TextEdits") 117 lRet = objAcroApp.MenuItemIsMarked("Stamp") 118 lRet = objAcroApp.MenuItemIsMarked("Highlight") 119 lRet = objAcroApp.MenuItemIsMarked("Underline") 120 lRet = objAcroApp.MenuItemIsMarked("StrikeOut") 121 lRet = objAcroApp.MenuItemIsMarked("FileAttachmentReal") 122 lRet = objAcroApp.MenuItemIsMarked("Sound") 123 lRet = objAcroApp.MenuItemIsMarked("Separator") 124 lRet = objAcroApp.MenuItemIsMarked("Filter") 125 126 'PDFドキュメントを閉じる ※必須 127 lRet = objAcroApp.CloseAllDocs 128 'アプリケーションの終了 129 lRet = objAcroApp.Hide 130 lRet = objAcroApp.Exit 131 132 'オブジェクトの強制開放 133 Set objAcroAVDoc = Nothing 134 Set objAcroPDDoc = Nothing 135 Set objAcroApp = Nothing 136 End Sub


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

補足

  • 上記サンプルVBAは失敗に終わりました。
  • 引数はメニュー項目の(言語に依存しない英語の)名前を指定します。
  • 英語版PDF解説にあるメニュー項目の名前(menu item name)を使用しました。

動作確認環境

  • 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.1 Pro + Office 2003( + SP3)
  • WindowsXP Pro( + SP3 + WindowsUpdate) +
    Acrobat 9.3.1 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.21.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等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください