• 締切済み

Acrobatのツールボタンの消し方

いつもお世話になっております。 現在、Windows2000(SP4)、Visual Basic6.0(SP6)を使って開発中です。 今回、Form上にAcrobat Readerを使って、PDFファイルを表示させたいのですが、デフォルトで表示されるAcrobatのツールボタンのうち、「Yahoo!」、「Web検索」、「電子メール」のボタンを非表示にしたいと思っています。 インターネットで調べたところ、下記の方法で出来そうなのですが、 ------------------------------------------------------ Dim AcroApp As Object Set AcroApp = CreateObject("AcroExch.App") AcroApp.hideToolbarButton("Save") ←ここでは上書きボタンを消す ------------------------------------------------------ 実際には、2行目でエラーが出てしまいます。 何がいけないのか、分かる方がいましたら教えて下さい。 ちなみに、Acrobat Readerは7がインストールしてあります。 よろしくお願いします。

  • bou7
  • お礼率69% (51/73)

みんなの回答

回答No.3

>AcroPDF.dllは参照設定して使っていますが、ツールバーを消す方法が分かりません。 AcroPDF1.setShowToolbar False

bou7
質問者

お礼

ありがとうございます。 AcroPDFのプロパティばかり気にして、メソッドを全然調べていませんでした。 教えてくださった方法でツールバーを消した状態で表示することは出来ましたが、画面下に表示されるアイコンをクリックすると、すぐにツールバーが表示されてしまうんですね。 やはり、Javascriptを使って制御するしかないのかなと思いました。 色々教えてくださり、ありがとうございました。

回答No.2

>インターネットで調べたところ、下記の方法で出来そうなのですが、 >------------------------------------------------------ >Dim AcroApp As Object >Set AcroApp = CreateObject("AcroExch.App") >AcroApp.hideToolbarButton("Save") ←ここでは上書きボタンを消す >------------------------------------------------------ >実際には、2行目でエラーが出てしまいます。 これに近いようなのは見つからなかったです。レジストリを見て みましたがAcrobat Reader7.0 には、"AcroExch.App"という名前は ないですね。 フォーム上に表示するなら、PDF 表示用 ActiveX コントロールを 使えば表示できます。Acrobat Reader7.0では、正式にサポートし ているみたいです。 http://support.adobe.co.jp/faq/qadoc/spitz.nsf/dfa308f1e716c91649256bfb0014757e/62c6c03d583f11eb49256c01000e8672?OpenDocument 　上記コントロールで、ツールバー全体を消すのは簡単にできます が、特定のボタンだけ消すのはよくわかりません。以下の情報は ありましたけど http://support.adobe.co.jp/faq/faq/qadoc.sv?229796+002

bou7
質問者

お礼

ご回答ありがとうございます。 >レジストリを見てみましたがAcrobat Reader7.0 には、"AcroExch.App" >という名前はないですね。 レジストリを見れば使えるかどうか分かったんですね。 勉強になりました。 >フォーム上に表示するなら、PDF 表示用 ActiveX コントロールを >使えば表示できます。 >上記コントロールで、ツールバー全体を消すのは簡単にできますが、 AcroPDF.dllは参照設定して使っていますが、ツールバーを消す方法が分かりません。どのようにしたら良いか、教えて頂けませんか？ >以下の情報はありましたけど 私もこの情報を見つけたので、今はJavaScriptを使って非表示にしています。 ただ、他にも消したいボタンがあるので、そのボタンの名称を調べている所です。

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

「ツール」「参照設定」でAcrobatのファイルを制御するDll等のファイルが必要なのでは？ その為に"AcroExch.App"が認識できないのだと思いますが？

bou7
質問者

補足

回答してくださり、ありがとうございます。 参照設定かとも思ったのですが、 Windows2003、Visual Basic6.0(SP6)、Acrobat Reader5.0 の環境では、参照設定せずに Set AcroApp = CreateObject("AcroExch.App") を通過することが出来たので、別の問題かと思ったのです。 ちなみにこの環境では、 AcroApp.hideToolbarButton("Save") でエラーが発生します。 代わりに、 AcroApp.Show とすると、実行出来、Acrobat Readerが起動します。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ActiveX コンポーネントを作成できません

    Excel2007 WinVista32ビット　Adobe Reader 9 Ver9.5.5 を使用しています。 ExcelVBAでPDFを操作するコードを作成したところ、CreateObject関数のところで（※） 「ActiveX コンポーネントを作成できません。」のエラーが出てしまっています。　色々ネットで調べて宣言を変更したりしたのですが上手くいきません。今はこの２行だけでもエラーが出ます。 　Dim aaa As Acrobat.CAcroAVDoc 　aaa = CreateObject("AcroExch.AVDoc")　※ 　Dim aaa As Acrobat.CAcroAVDocを 　　(1)Dim aaa As new Acrobat.CAcroAVDoc (2)Dim aaa As object 　　(3)Dim aaa　にしてもだめでした 最終的にはPFDファイルのページ数が知りたいのですが・・・・・・ Adobe ReaderはProfessionalではありません この環境でどうにかする事できませんか？

  • エクセルVBAでPDF/実行時エラー

    以下はネットで検索して見つけたPDFのプリント用VBAですがやってみるとSet acroApp = CreateObject("AcroExch.APP")のところで実行時エラー「インターフェイスがサポートされていません」になります。 Adibe Acrobat 10.0 Type Liblaryも参照設定しました。 Windows11でエクセルは2019です。Acrobat Readerも入っています。 どうすればいいのでしょう？ https://ziomatrix18.blog.fc2.com/blog-entry-406.html Sub test01() Dim ret As Integer Dim filePath As String filePath = "C:\Temp\Test.pdf" Dim acroApp As CAcroApp Dim pdDoc As CAcroPDDoc Dim avDoc As CAcroAVDoc Set acroApp = CreateObject("AcroExch.APP") Set pdDoc = CreateObject("AcroExch.PDDoc") Set avDoc = CreateObject("AcroExch.AVDoc") ret = acroApp.Show ret = avDoc.Open(filePath, "") Set pdDoc = avDoc.GetPDDoc() Dim numPage As Long numPage = pdDoc.GetNumPages ret = avDoc.PrintPages(0, numPage - 1, 2, 0, 0) ret = avDoc.Close(False) acroApp.Exit Set avDoc = Nothing Set pdDoc = Nothing Set acroApp = Nothing End Sub

  • CreateObject関数について

    VisualBasic2005でPDFを操作するプログラムを作ろうとしています。 その際に以下のようなプログラムでCreateObject関数を使用しているのですが、※印の行で 「ActiveX コンポーネントを作成できません。」 のエラーが出てしまっています。 Dim AcroExchAVDoc As Acrobat.CAcroAVDoc Dim AcroExchPDDoc As Acrobat.CAcroPDDoc Dim avPageView As Acrobat.CAcroAVPageView Dim pdPage As Acrobat.CAcroPDPage AcroExchAVDoc = CreateObject("AcroExch.AVDoc")　※ 現在使用しているのは Adobe Reader 8 Adobe Acrobat 8 Professional ですが、原因として何が考えられますでしょうか？ この作業で足止めをくらっており、大変困っています。 誰かご助言をお願いします。

  • AcrobatのY!ボタン（プラグイン）を外す方法は

    Acrobat7で，Yahoo!マークのツールバー（プラグイン）を外す方法を教えてください． （Adobe Reader ではなく，Acrobat（PDFを作成できる方）です） 不要なプラグインを外して軽量化を図りたいですが，少なくとも Y!ボタンは，100％使うことがないので，参考までに外す方法を知りたい次第です．

  • アクロバットについて

    よろしくお願いします。 子供が習っている進研ゼミでPCから アクロバットリーダーを使い情報を 表示させてみたいのですがうまくいきません。 ・アクロバットリーダーは6.0をダウンロードしてあり 　他のもの（進研ゼミ以外）は表示できます。 ・タスクバーの上にある青のｅマークの横には 　「ページが表示されました」とでます。 ・更新ボタンをおすと左上にマークがでて 　プロパティをみると使用不可になっています。 どうすればみられるようになりますか？ よろしくお願いします。

  • Acrobat Reader のアイコンについて

    Acrobat Reader で pdf ファイルを見るとき、以前は手のひらの アイコンが出ていてドラッグすると表示画面がスクロールして いました。 現在は、Windows の矢印アイコンです。ドラッグによる表示画面の スクロールができなくて不便です。 どうすれば、以前のようにドラッグでスクロールできるように なるでしょうか？ OS Windows XP SP3 Acrobat Reader のバージョン 8 です。 以上、よろしくお願いします。

  • パソコン上に Acrobat Rdader 関係が 5.0、 6.0 と２つあるんですが ．．

    Windows XP を使っています。 パソコンの中を少し掃除していた時に、、 次のように、Acrobat Reader 関係のフォルダが２つあるのに気付きました。 C:\Program Files\Adobe\Acrobat 5.0 　・フォルダサイズ：　16.1 MB 　・中の \Reader フォルダにある exe ファイルは、AcroRd32.exe(Acrobat Reader 5.0) C:\Program Files\Adobe\Acrobat 6.0 　・フォルダサイズ：　50.6 MB 　・中の \Reader フォルダにある exe ファイルは、AcroRd32.exe(Adobe Reader 6.0) ---- おたずねしたい点ですが、 普通、新しいバージョンをインストールした時は、 古い方は上書きされるなりして残らないんじゃないかと思うんですが、 こんな風に２つになっているのは、 何か特別な理由でもあるんでしょうか？ (もしかすると、インストールの時に何かその辺のことが表示されたのかも知れませんが、何も覚えてません。） 特に問題なければ、古い方は削除しようかと思っているんですが。 --

  • Acrobat Reader5.1→Adobe Reader6.0

    PC購入時にはAcrobat Reader5.1が入っていたのですがその後Adobe Reader6.0へアップデートの報告が表示されたので実行しました。その際5.1から6.0へ上書きされるものかと思っていましたが5.1はメニューに残っていました。初心者としては無闇に削除してしまうのが戸惑われ放置してあったのですが処分しても構わないものでしょうか？これはただバージョンアップさせたという理解で良いのでしょうか？因みに7.0へのアップデートもあるようですがこの見解が合っていれば同様に古いものを捨て新しいものを残せば良いのでしょうか？

  • form2がボタンを押すと消えてしまう

    vb2010で、作成しています。form1から、form2を呼び出し、okボタンまたは、cancelボタンを押すと、無条件でform2が消えてしまいます。私がしたいのは、form2（パスワード入力ウィンドウ）でテキストボックスにパスワードを入力してokボタンを押して、それが正しい(1234)ときのみform2を消去することです。現在のところ、入力したパスワードが間違っていてもokボタンを押すと、form2は消えてしまいます。 form1側のコードとform2側のコードは以下です。お手数ですが御教示いただけると幸いです。 /////////Form1 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As New Form2() f.TextBox1.PasswordChar = "*"c '//入力文字をマスクする If f.ShowDialog(Me) = DialogResult.OK Then If f.TextBox1.Text = "1234" Then f.Dispose() End If End If End Sub End Class /////////Form2 Public Class Form2 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim f As Form1 f = Me.Owner Me.DialogResult = DialogResult.OK End Sub Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click Dim f As Form1 f = Me.Owner Me.DialogResult = DialogResult.Cancel End Sub End Class

  • なぜかフォームは上書きされません。

    こんにちは。 下記のようなフォームにボタンを追加し、セルにデータを書き込み、最後に上書きするマクロを作ってみました。 セルのデータは上書きされますが、なぜかフォームは上書きされません。フォームの表示で追加したボタンも表示されます。 どなたかご教示願います。 -------------------------------------------- Sub testVBA() Dim WOBJ As Object With UserForm1 Set WOBJ = .Controls.Add("Forms.CommandButton.1", "MyCom", True) End With Range("A1").Value = "aaaaaaaaaaa" ThisWorkbook.Save UserForm1.Show End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する