PDFを開いて画像を選択し、コピー→エクセルにてペーストをしたいです。
※PDFは、エクセルをプリントアウトし、セロテープで図を貼り付け、ペンで書き込みをし、
コピー機の機能を使ってPDF化した画像データ。
※最終的に、他に２つあるエクセルのデータと一緒に１つのPDFファイルにしたい。
※PCにPDFを編集できるソフトは入っていない。
※PDFは２ページあり、その２ページともエクセルに貼りたい。
※office2010
現在は、PDFを開いて、そのファイルをアクティブにするところまではできています。
いろいろ検索をしたところ、Sendkeysでできるという記述を見かけたのですが、
上手くいきません。（まったく選択されない）
PDFをアクティブにできていない時にはエクセルファイルに対してSendkeysで全選択
ができていたので、PDFに対して効いてないような印象です。
ちなみに、普通に手動でPDFを開いてその状態でCtrl+Cをしてもまったく選択されないので、
同じ状況と考えると納得はいきます。
（マウスでクリックすると、画像を選択することができ、コピペでエクセルに貼りつけることはもちろん可能）
このPDFは、PDFではなく画像ファイルとして保存することも可能なのですが（JPEGとか、TIFFとか）、もともとPDFの形で使用しているので（閲覧用ですが）、できればPDFのままで使いたいと思っています（JPEGなら問題なくできると思うし）。
PDFの画像が選択できた場合、
�‖升欧弔離┘�セルファイルから、１シートずつシートのコピー
��PDFの画像を別のシートにコピー
���，離掘璽硲欧弔鉢△裡欧弔侶廝乾掘璽箸鯀�択してPDFを作成
という手順でPDFを作って行こうと思っています。
ACROBATがあればもっと簡単にできるのでしょうけど、ボタン１つで別々のファイルを１つのPDFに出来たら便利だなと思っています。
PDFの画像を選択する方法、あるいは今私が考えている手順以外の方法があれば、ご意見をいただけないでしょうか。
※PDFは、エクセルをプリントアウトし、セロテープで図を貼り付け、ペンで書き込みをし、
コピー機の機能を使ってPDF化した画像データ。
※最終的に、他に２つあるエクセルのデータと一緒に１つのPDFファイルにしたい。
※PCにPDFを編集できるソフトは入っていない。
※PDFは２ページあり、その２ページともエクセルに貼りたい。
※office2010
現在は、PDFを開いて、そのファイルをアクティブにするところまではできています。
いろいろ検索をしたところ、Sendkeysでできるという記述を見かけたのですが、
上手くいきません。（まったく選択されない）
PDFをアクティブにできていない時にはエクセルファイルに対してSendkeysで全選択
ができていたので、PDFに対して効いてないような印象です。
ちなみに、普通に手動でPDFを開いてその状態でCtrl+Cをしてもまったく選択されないので、
同じ状況と考えると納得はいきます。
（マウスでクリックすると、画像を選択することができ、コピペでエクセルに貼りつけることはもちろん可能）
このPDFは、PDFではなく画像ファイルとして保存することも可能なのですが（JPEGとか、TIFFとか）、もともとPDFの形で使用しているので（閲覧用ですが）、できればPDFのままで使いたいと思っています（JPEGなら問題なくできると思うし）。
PDFの画像が選択できた場合、
�‖升欧弔離┘�セルファイルから、１シートずつシートのコピー
��PDFの画像を別のシートにコピー
���，離掘璽硲欧弔鉢△裡欧弔侶廝乾掘璽箸鯀�択してPDFを作成
という手順でPDFを作って行こうと思っています。
ACROBATがあればもっと簡単にできるのでしょうけど、ボタン１つで別々のファイルを１つのPDFに出来たら便利だなと思っています。
PDFの画像を選択する方法、あるいは今私が考えている手順以外の方法があれば、ご意見をいただけないでしょうか。
|
|
|
|
コメント(41)
>>[2]
ええとそれは（Canonではないのですが）、
たとえば他のエクセルファイルはエクセルからPDF書き出しかなんかして作って、
それとは別にプリントアウトしたほうのPDFを作って、
複合機のほうで統合できる、ということですか？
それとも、なんかアプリがくっついてきて、それをインストールできるとかそういう話ですか？
以前Canonの複合機は使ったことがあって、そちらにはPCが別にくっついてたのでイメージがわくのですが（製本とかいろいろできるヤツだった）、今の職場の複合機は見た目はごく普通のコピー機っぽいヤツで、くっついてるタッチパネルで操作するタイプなのです。
私が知る限り、コピー機側から、作成したPDF（PCなどから見れる共有フォルダに作成される）をいじることはできないのですよね（削除とか名前を変えるとか）。。。。
同梱のアプリをインストールの場合、（あるいはコピー機側での操作だとしても）新たに買う必要はないのだけど、それを使おうと言った場合、実際にＰＤＦを作るかたたちは全部プリントアウトしてまとめてＰＤＦ作成という道を選択しそうな予感がするのですよね。。。（遠い目）
でも、もしかしたら新たな道が開ける可能性もありそうなので、ちょっと確認してみます。
ありがとうございます。
ええとそれは（Canonではないのですが）、
たとえば他のエクセルファイルはエクセルからPDF書き出しかなんかして作って、
それとは別にプリントアウトしたほうのPDFを作って、
複合機のほうで統合できる、ということですか？
それとも、なんかアプリがくっついてきて、それをインストールできるとかそういう話ですか？
以前Canonの複合機は使ったことがあって、そちらにはPCが別にくっついてたのでイメージがわくのですが（製本とかいろいろできるヤツだった）、今の職場の複合機は見た目はごく普通のコピー機っぽいヤツで、くっついてるタッチパネルで操作するタイプなのです。
私が知る限り、コピー機側から、作成したPDF（PCなどから見れる共有フォルダに作成される）をいじることはできないのですよね（削除とか名前を変えるとか）。。。。
同梱のアプリをインストールの場合、（あるいはコピー機側での操作だとしても）新たに買う必要はないのだけど、それを使おうと言った場合、実際にＰＤＦを作るかたたちは全部プリントアウトしてまとめてＰＤＦ作成という道を選択しそうな予感がするのですよね。。。（遠い目）
でも、もしかしたら新たな道が開ける可能性もありそうなので、ちょっと確認してみます。
ありがとうございます。
>>[4]
どんな複合機を使っているかの情報が無いので、ご自分で調べて下さいとしか言えませんが。
＞たとえば他のエクセルファイルはエクセルからPDF書き出しかなんかして作って、
＞それとは別にプリントアウトしたほうのPDFを作って、
＞複合機のほうで統合できる、ということですか？
＞それとも、なんかアプリがくっついてきて、それをインストールできるとかそう＞いう話ですか？
Canonであれば、同梱されている「IJ Scan Utility」というアプリで複数のPDFファイルを一つにまとめる事が出来ます。
Ricohであれば「Ridoc Desk Navigator V4」
Xerox(名前変わるんだっけ？)であれば「DocuWorks」
が同等の機能を持っているようですし、
フリーソフトの「Cube PDF Utility」を使えばプリンタのメーカは関係なくなります。
＞同梱のアプリをインストールの場合、（あるいはコピー機側での操作だとしても）新たに買う必要はないのだけど、それを使おうと言った場合、実際にＰＤＦを作るかたたちは全部プリントアウトしてまとめてＰＤＦ作成という道を選択しそうな予感がするのですよね。。。（遠い目）
それでも別にいいんじゃないですか？
どんな複合機を使っているかの情報が無いので、ご自分で調べて下さいとしか言えませんが。
＞たとえば他のエクセルファイルはエクセルからPDF書き出しかなんかして作って、
＞それとは別にプリントアウトしたほうのPDFを作って、
＞複合機のほうで統合できる、ということですか？
＞それとも、なんかアプリがくっついてきて、それをインストールできるとかそう＞いう話ですか？
Canonであれば、同梱されている「IJ Scan Utility」というアプリで複数のPDFファイルを一つにまとめる事が出来ます。
Ricohであれば「Ridoc Desk Navigator V4」
Xerox(名前変わるんだっけ？)であれば「DocuWorks」
が同等の機能を持っているようですし、
フリーソフトの「Cube PDF Utility」を使えばプリンタのメーカは関係なくなります。
＞同梱のアプリをインストールの場合、（あるいはコピー機側での操作だとしても）新たに買う必要はないのだけど、それを使おうと言った場合、実際にＰＤＦを作るかたたちは全部プリントアウトしてまとめてＰＤＦ作成という道を選択しそうな予感がするのですよね。。。（遠い目）
それでも別にいいんじゃないですか？
読み解けないのですが
＞※PDFは、エクセルをプリントアウトし、セロテープで図を貼り付け、ペンで書き込みをし、
コピー機の機能を使ってPDF化した画像データ。
ふつうは、エクセルを開いて、そこに図を貼り付ける。
あとは、プリンタを、Microsoft Print to PDF にしてPDFを作成する。
つまり、図を、デジタルデータにするほうが早いのではないですか？
図をスキャンして、PCに保存して Excelに貼り付ける
あるいは、ペイントを使って、図をスキャンし、文字を書き込んで保存し Excelに貼り付ける
図というのは、何なのか？Excelをプリントアウトしたものなのか？
Webページから頂いたものなのか？
新聞の切り抜きなのか？
まず、それをはっきりさせないと、自分でわかっていても人には伝わらないと思いますよ。
＞���，離掘璽硲欧弔鉢△裡欧弔侶廝乾掘璽箸鯀�択してPDFを作成
という手順でPDFを作って行こうと思っています。
ACROBATがあればもっと簡単にできるのでしょうけど、ボタン１つで別々のファイルを１つのPDFに出来たら便利だなと思っています。
上記と同様に
印刷
プリンタ Microsoft Print to PDF
印刷対象 ブック全体
これで、シートが4つなら、4ページのPDFは作成可能です。
PDFにするのに ”印刷” を使うことをご存じないのでは？
＞※PDFは、エクセルをプリントアウトし、セロテープで図を貼り付け、ペンで書き込みをし、
コピー機の機能を使ってPDF化した画像データ。
ふつうは、エクセルを開いて、そこに図を貼り付ける。
あとは、プリンタを、Microsoft Print to PDF にしてPDFを作成する。
つまり、図を、デジタルデータにするほうが早いのではないですか？
図をスキャンして、PCに保存して Excelに貼り付ける
あるいは、ペイントを使って、図をスキャンし、文字を書き込んで保存し Excelに貼り付ける
図というのは、何なのか？Excelをプリントアウトしたものなのか？
Webページから頂いたものなのか？
新聞の切り抜きなのか？
まず、それをはっきりさせないと、自分でわかっていても人には伝わらないと思いますよ。
＞���，離掘璽硲欧弔鉢△裡欧弔侶廝乾掘璽箸鯀�択してPDFを作成
という手順でPDFを作って行こうと思っています。
ACROBATがあればもっと簡単にできるのでしょうけど、ボタン１つで別々のファイルを１つのPDFに出来たら便利だなと思っています。
上記と同様に
印刷
プリンタ Microsoft Print to PDF
印刷対象 ブック全体
これで、シートが4つなら、4ページのPDFは作成可能です。
PDFにするのに ”印刷” を使うことをご存じないのでは？
>>[5]
ありがとうございます。
今日、簡単にコピー機回りを見てたのですが、簡単に同梱のアプリが使える状態ではなさそうです。
月初でそこそこ忙しくて、担当者に問い合わせまではできませんでしたので、落ち着いたら聞いてみたいと思います。
機種については、（さすがにそれで身バレはないとは思ってますが）とりあえずcanonではない、ということで（笑）
でも、参考になりました。
あと、PDFの画像変換用のサイトのURL、ありがとうございます。
毎日のことなので、これを提案した場合、プリントアウトしてPDF化の道になりそうです。
説明してはいませんでしたが、この、プリントアウトしてPDF化、というのが現在の方法で、ここからより簡単な方法を、ということで相談があったので（よりキレイな状態のデータを、なら話は変わったのですが）、複雑になるようなら、変更する必要はないんですよね、本当に。
MILANOさんがおっしゃるとおり、
＞それでも別にいいんじゃないですか？
その通りなのです。
ありがとうございます。
今日、簡単にコピー機回りを見てたのですが、簡単に同梱のアプリが使える状態ではなさそうです。
月初でそこそこ忙しくて、担当者に問い合わせまではできませんでしたので、落ち着いたら聞いてみたいと思います。
機種については、（さすがにそれで身バレはないとは思ってますが）とりあえずcanonではない、ということで（笑）
でも、参考になりました。
あと、PDFの画像変換用のサイトのURL、ありがとうございます。
毎日のことなので、これを提案した場合、プリントアウトしてPDF化の道になりそうです。
説明してはいませんでしたが、この、プリントアウトしてPDF化、というのが現在の方法で、ここからより簡単な方法を、ということで相談があったので（よりキレイな状態のデータを、なら話は変わったのですが）、複雑になるようなら、変更する必要はないんですよね、本当に。
MILANOさんがおっしゃるとおり、
＞それでも別にいいんじゃないですか？
その通りなのです。
>>[7]
ご意見ありがとうございます。
＞つまり、図を、デジタルデータにするほうが早いのではないですか？
図をスキャンして、PCに保存して Excelに貼り付ける
あるいは、ペイントを使って、図をスキャンし、文字を書き込んで保存し Excelに貼り付ける
まあ、それが、理想なんですよね。。。
最初にこのバラバラのデータを１つにまとめてPDFにしたい、という話を聞いた時に、へいちゃんさんが挙げられた方法はもちろん考えたのです。
なので隣の人に意見を聞いたら、「え、無理じゃないですか？」と言われました。実際に現在バリバリアナログな作業をしている人たちに、図をスキャンして〜とお願いしたら、おそらく拒否られる、という意味です。
そして、それだけの労力を強いる必要もないので（「労力を強いる」なんて大げさな！と思われるかもしれませんが、担当の人たちにとっては全然オーバーではない表現なのです）、やっぱり、全部プリントアウトしてまとめてPDF化、という現行の方法のまま、ということになるのです。
ご意見ありがとうございます。
＞つまり、図を、デジタルデータにするほうが早いのではないですか？
図をスキャンして、PCに保存して Excelに貼り付ける
あるいは、ペイントを使って、図をスキャンし、文字を書き込んで保存し Excelに貼り付ける
まあ、それが、理想なんですよね。。。
最初にこのバラバラのデータを１つにまとめてPDFにしたい、という話を聞いた時に、へいちゃんさんが挙げられた方法はもちろん考えたのです。
なので隣の人に意見を聞いたら、「え、無理じゃないですか？」と言われました。実際に現在バリバリアナログな作業をしている人たちに、図をスキャンして〜とお願いしたら、おそらく拒否られる、という意味です。
そして、それだけの労力を強いる必要もないので（「労力を強いる」なんて大げさな！と思われるかもしれませんが、担当の人たちにとっては全然オーバーではない表現なのです）、やっぱり、全部プリントアウトしてまとめてPDF化、という現行の方法のまま、ということになるのです。
>>[9]
表題のVBAを見落としていました。
とりあえず、手動でマクロ記録してみてはいかがですか？
コピペは無理ですが、挿入ならかんたんです。
”挿入”タブをクリック
リボンの”オブジェクト”の挿入をクリック
オブジェクトの挿入ウィンドウで ”ファイルから”のタブをクリック
”参照”ボタンクリック
参照のウィンドウで、PDFファイルを選択
参照のウィンドウで、”挿入” ボタンクリック
オブジェクトの挿入ウィンドウで ”OK”ボタンをクリック
マクロの編集で開いてみてください。
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.OLEObjects.Add(Filename:="C:\Users\heisu\Desktop\GF.pdf", Link _
:=False, DisplayAsIcon:=False).Select
End Sub
問題は、ファイルの指定をどうするか？でしょうか・・・
表題のVBAを見落としていました。
とりあえず、手動でマクロ記録してみてはいかがですか？
コピペは無理ですが、挿入ならかんたんです。
”挿入”タブをクリック
リボンの”オブジェクト”の挿入をクリック
オブジェクトの挿入ウィンドウで ”ファイルから”のタブをクリック
”参照”ボタンクリック
参照のウィンドウで、PDFファイルを選択
参照のウィンドウで、”挿入” ボタンクリック
オブジェクトの挿入ウィンドウで ”OK”ボタンをクリック
マクロの編集で開いてみてください。
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.OLEObjects.Add(Filename:="C:\Users\heisu\Desktop\GF.pdf", Link _
:=False, DisplayAsIcon:=False).Select
End Sub
問題は、ファイルの指定をどうするか？でしょうか・・・
>>[16]
ありがとうございます。
そうなんです。目指すはVBAなんです。
＞ActiveSheet.OLEObjects.Add(Filename:="C:\Users\heisu\Desktop\GF.pdf", Link _
:=False, DisplayAsIcon:=False).Select
これ、確かエクセルのオブジェクトの挿入だったと思うのですが、
これの問題として、１ページ目しか取り出せないのです。
超アナログなPDFは２ページありまして。。。。
と書いたところでちょっと思いつきました。
１ページ目は超アナログなんですが、２ページ目はそのままPDFに変換できるんですよ、これ、確か！
どうしよう。。。できてしまう。。。！
ずっと、オブジェクトの挿入でページ指定できたら一件落着なのに、と思ってたのです。
ちょっと解像度は落ちてしまうのだけど、選べてしまえばそのほうが良いので。
それで、１ページ目と２ページ目の両方とも図をなんらかの方法で取り出せないかなぁ、と思っていたのです。手動ではなくてVBAで。
でも、２ページ目は、セロテープで図を貼ったりしてないので、PDF書き出しOKなのです。
てこずりそうなのは印刷範囲ですが、そこはなんとかなりそう。
わー。
ありがとうございます！
目の前が開けた気分です！！
ありがとうございます。
そうなんです。目指すはVBAなんです。
＞ActiveSheet.OLEObjects.Add(Filename:="C:\Users\heisu\Desktop\GF.pdf", Link _
:=False, DisplayAsIcon:=False).Select
これ、確かエクセルのオブジェクトの挿入だったと思うのですが、
これの問題として、１ページ目しか取り出せないのです。
超アナログなPDFは２ページありまして。。。。
と書いたところでちょっと思いつきました。
１ページ目は超アナログなんですが、２ページ目はそのままPDFに変換できるんですよ、これ、確か！
どうしよう。。。できてしまう。。。！
ずっと、オブジェクトの挿入でページ指定できたら一件落着なのに、と思ってたのです。
ちょっと解像度は落ちてしまうのだけど、選べてしまえばそのほうが良いので。
それで、１ページ目と２ページ目の両方とも図をなんらかの方法で取り出せないかなぁ、と思っていたのです。手動ではなくてVBAで。
でも、２ページ目は、セロテープで図を貼ったりしてないので、PDF書き出しOKなのです。
てこずりそうなのは印刷範囲ですが、そこはなんとかなりそう。
わー。
ありがとうございます！
目の前が開けた気分です！！
>>[17]
ありがとうございます。
＞なら、そうすればいいのではないでしょうか？
もろもろ検討して、どうしても方法がなくて、なおかつ、
それでも、全部を１つのPDFにまとめたいというお話になれば、
JPEGで保存してくれたらできますよ〜と
お話を持って行くつもりでした。
ただその場合、そこまでするなら、プリントアウトをコピーのほうが楽、という話になりそうだなぁ、とも思っていたりします（苦笑）。
もちろん、提案はしますけれどもね。
担当するのが複数人いるので、全員がOKを出さないと、手間が増えるような方法には変更は難しいのですよね。。。
でも、へいちゃんさんへのお返事に書きましたが、
なんとなく方法が見つかったような気がするので、
とりあえずその方法を試してみたいと思います。
それでうまくいかないようなら、JPEG保存の方法を提案してみたいと思います。
ありがとうございます。
＞なら、そうすればいいのではないでしょうか？
もろもろ検討して、どうしても方法がなくて、なおかつ、
それでも、全部を１つのPDFにまとめたいというお話になれば、
JPEGで保存してくれたらできますよ〜と
お話を持って行くつもりでした。
ただその場合、そこまでするなら、プリントアウトをコピーのほうが楽、という話になりそうだなぁ、とも思っていたりします（苦笑）。
もちろん、提案はしますけれどもね。
担当するのが複数人いるので、全員がOKを出さないと、手間が増えるような方法には変更は難しいのですよね。。。
でも、へいちゃんさんへのお返事に書きましたが、
なんとなく方法が見つかったような気がするので、
とりあえずその方法を試してみたいと思います。
それでうまくいかないようなら、JPEG保存の方法を提案してみたいと思います。
>>[18]
PDFが3ページあって、２ページ目をシート２に貼り付けることは簡単です。
ただし、それをVBAでやろうとした場合、PDFの２ページ目を表示することになりますから、AcrobatReaderの操作をVBAですることになります。
このハードルを越えられることができるのでしたら、可能だと思います。
手順的には、
Excelでオブジェクトの挿入
Adobe Acrobat Documentを指定
PDFファイルを指定
AcrobatReader で、貼り付けたいページを表示
Excelに戻って、ファイルの上書きで確認
Acrobat Reader を閉じる
Excelに戻って、Sheetを指定
オブジェクトの挿入・・・の繰り返しになると思います。
これをVBAで書くとなると、大変だと思います。
頑張ってください。
うまくできたらコードを披露していただくと、うれしく思います。
PDFが3ページあって、２ページ目をシート２に貼り付けることは簡単です。
ただし、それをVBAでやろうとした場合、PDFの２ページ目を表示することになりますから、AcrobatReaderの操作をVBAですることになります。
このハードルを越えられることができるのでしたら、可能だと思います。
手順的には、
Excelでオブジェクトの挿入
Adobe Acrobat Documentを指定
PDFファイルを指定
AcrobatReader で、貼り付けたいページを表示
Excelに戻って、ファイルの上書きで確認
Acrobat Reader を閉じる
Excelに戻って、Sheetを指定
オブジェクトの挿入・・・の繰り返しになると思います。
これをVBAで書くとなると、大変だと思います。
頑張ってください。
うまくできたらコードを披露していただくと、うれしく思います。
>>[20]
すみません、自宅PCではちょっと確認できないので、
週明けに会社で試してみたいとは思うのですが、
オブジェクトの挿入は、AcrobatReaderで開いているページが挿入されるということなのでしょうか？
なのだとしたら、ページを指定してPDFを開く方法は見つけたので、
その部分はなんとかなるかなーと思います。
ただ、きのうお返事で書いたプラン
�，發箸發肇┘�セルデータでそのままPDF変換OKなシートはシートのコピーで１つのファイルに集める
��超アナログPDFの１ページ目はオブジェクトの挿入、超アナログPDFの２ページ目はエクセルからPDFに変換
にしようかな、と思い始め、本日準備を開始していたところです。
これの利点は、超アナログPDFの部分のみが解像度が低いところで、
むしろ結果オーライかも、と思ったり。
でも、へいちゃんさんの紹介してくださった方法もちょっと興味深い方法なので、試してみますね。
月曜日は忙しい日なので、試すのは火曜日あたりになるかもしれないので、
使い勝手については火曜日以降ということで。
すみません、自宅PCではちょっと確認できないので、
週明けに会社で試してみたいとは思うのですが、
オブジェクトの挿入は、AcrobatReaderで開いているページが挿入されるということなのでしょうか？
なのだとしたら、ページを指定してPDFを開く方法は見つけたので、
その部分はなんとかなるかなーと思います。
ただ、きのうお返事で書いたプラン
�，發箸發肇┘�セルデータでそのままPDF変換OKなシートはシートのコピーで１つのファイルに集める
��超アナログPDFの１ページ目はオブジェクトの挿入、超アナログPDFの２ページ目はエクセルからPDFに変換
にしようかな、と思い始め、本日準備を開始していたところです。
これの利点は、超アナログPDFの部分のみが解像度が低いところで、
むしろ結果オーライかも、と思ったり。
でも、へいちゃんさんの紹介してくださった方法もちょっと興味深い方法なので、試してみますね。
月曜日は忙しい日なので、試すのは火曜日あたりになるかもしれないので、
使い勝手については火曜日以降ということで。
>>[21]
Pythonってナニー？？？と思って調べてみました。
興味深い。。。。のですが、これ使って作るとしたら、
さらにハードルが高く。。。
あ、どちらかというとPCに不慣れなタイプの人たちが扱うことになるので、
わかりやすく、使いやすく、不具合が出にくいものを用意しないといいけなくなり、そういう意味でハードルが高くなってしまうという意味で。
（知らないのに出来るつもりでいるあたりが、そこそこ厚かましい
）
あと、せっかく作るのなら、末永く活用してもらいたいので、
VBAのほうが、まだ手直しが効くかなという希望的楽観的観測があったりします。一応、多少できるひとが数人（１〜２人）いるので。。。
でも、提案していただけるのは本当にありがたいです。
お返事を考えているうちに新たな案が浮かんだりするので、
思考の整理にもなって。
ありがとうございました。
Pythonってナニー？？？と思って調べてみました。
興味深い。。。。のですが、これ使って作るとしたら、
さらにハードルが高く。。。
あ、どちらかというとPCに不慣れなタイプの人たちが扱うことになるので、
わかりやすく、使いやすく、不具合が出にくいものを用意しないといいけなくなり、そういう意味でハードルが高くなってしまうという意味で。
（知らないのに出来るつもりでいるあたりが、そこそこ厚かましい
）あと、せっかく作るのなら、末永く活用してもらいたいので、
VBAのほうが、まだ手直しが効くかなという希望的楽観的観測があったりします。一応、多少できるひとが数人（１〜２人）いるので。。。
でも、提案していただけるのは本当にありがたいです。
お返事を考えているうちに新たな案が浮かんだりするので、
思考の整理にもなって。
ありがとうございました。
>>[23]
少しニュアンスが違う気がするので
＞オブジェクトの挿入は、AcrobatReaderで開いているページが挿入されるということなのでしょうか？
オブジェクトの種類で”Adobe Acrovat Document”を指定すると
どのファイルなのか聞いてくるので、PDFのファイルを指定
すると、Adobe Acrobat Readerが起動します。
つまりページを指定しなさい、ということだろうと思います。
ただ、Excelの画面は、一番最初のページが出たままなので、
上書き保存をして、どのページが挿入されたのか確認することになります。
もう一度挿入したいときに、Acrobat Reader が開いたままだと、ループするのか処理ができなくなります。（フリーズしちゃう）ので、挿入の確認ができた時点で、Acrobat Readerを閉じておく、ということが必要になります。
少しニュアンスが違う気がするので
＞オブジェクトの挿入は、AcrobatReaderで開いているページが挿入されるということなのでしょうか？
オブジェクトの種類で”Adobe Acrovat Document”を指定すると
どのファイルなのか聞いてくるので、PDFのファイルを指定
すると、Adobe Acrobat Readerが起動します。
つまりページを指定しなさい、ということだろうと思います。
ただ、Excelの画面は、一番最初のページが出たままなので、
上書き保存をして、どのページが挿入されたのか確認することになります。
もう一度挿入したいときに、Acrobat Reader が開いたままだと、ループするのか処理ができなくなります。（フリーズしちゃう）ので、挿入の確認ができた時点で、Acrobat Readerを閉じておく、ということが必要になります。
>>[24]
横からすみません。
PDFをまとめたいだけなら、Pythonを使うほうが簡単です。
Excelのシートを、PDFにして、もともとのPDFファイルと、同じフォルダに収めます。（ファイル名の付け方は工夫が必要です、順番が変わりますから）
あとは、PyPDF2という無料のライブラリをインストールしておけば、プログラムを書いて、ダブルクリックするだけです。
プログラムと言っても20行程度です。フォルダ名さえ同じにすれば、参考のページのプログラムをコピペで大丈夫です。
↓を参考にしてみてください。
https://gammasoft.jp/python-example/merge-pdf-files-into-one-pdf-file/
横からすみません。
PDFをまとめたいだけなら、Pythonを使うほうが簡単です。
Excelのシートを、PDFにして、もともとのPDFファイルと、同じフォルダに収めます。（ファイル名の付け方は工夫が必要です、順番が変わりますから）
あとは、PyPDF2という無料のライブラリをインストールしておけば、プログラムを書いて、ダブルクリックするだけです。
プログラムと言っても20行程度です。フォルダ名さえ同じにすれば、参考のページのプログラムをコピペで大丈夫です。
↓を参考にしてみてください。
https://gammasoft.jp/python-example/merge-pdf-files-into-one-pdf-file/
相談してまいりました。
現状、こんなことができている、今後こんなことができるかも、ということで相談しまして、
とりあえず、私のコメント（18）に書いた方法、
エクセルはシートを一時的にコピーし１つに集め、
超アナログPDFのみ１ページだけオブジェクト挿入でPDF１つにまとめる、
という方法になりました。
へいちゃんさんの紹介してくださったPythonの便利ツールは、職場のシステム上、なんでもかんでもインストールできないことになってまして（いろいろ申請しないといけない）、今回は見送り。本当にPDFをいろいろ編集する必要が出てきた時点で、ソフトなどを検討する、ということになりそうです。
相談をしなければ、超アナログファイルは２ページ目はアナログの洗礼を受けてないことに気づかなかった可能性大です。
みなさま、たくさんのご意見ありがとうございました。
現状、こんなことができている、今後こんなことができるかも、ということで相談しまして、
とりあえず、私のコメント（18）に書いた方法、
エクセルはシートを一時的にコピーし１つに集め、
超アナログPDFのみ１ページだけオブジェクト挿入でPDF１つにまとめる、
という方法になりました。
へいちゃんさんの紹介してくださったPythonの便利ツールは、職場のシステム上、なんでもかんでもインストールできないことになってまして（いろいろ申請しないといけない）、今回は見送り。本当にPDFをいろいろ編集する必要が出てきた時点で、ソフトなどを検討する、ということになりそうです。
相談をしなければ、超アナログファイルは２ページ目はアナログの洗礼を受けてないことに気づかなかった可能性大です。
みなさま、たくさんのご意見ありがとうございました。
さて、オブジェクトの挿入の２ページ目問題ですが、
本日試してみて、２ページ目が挿入できることを確認いたしました。
（何度か試しているとちゅう、AcrobatReaderを閉じ忘れてステキにフリーズして、
結局PCを再起動までしてしまいました。。。）
で、その時点では、どうするか、はすでに決まっていたのですが、
興味があったので、VBAでどこまでできそうかを試してみました。
結論から言えば、
�．掘璽硲韻縫�ブジェクトの挿入１ページ目……○
��開いたAcrobatReaderをアクティブにして、SendkeysにてCtrl+Qで終了……○
��エクセルに戻って、シート２にオブジェクトの挿入……×
となり、何故か��でエラーになります。
一度だけ無事に通過してオブジェクトの挿入ができたことがありますが、
何故か、エクセルの上書き保存でエラー。。。
なので、�△鬚笋瓩董△い�なり��を試したところそれははOK。ファイルが２つ開いた状態になります。
続けて、
�い箸靴董�Ctrl+↓で、次ページを表示……○
�ゥ┘�セルを上書き保存
と続けてみましたが、シート２に挿入した画像は２ページ目にはなりませんでした。
これは、２つ開いた関係なのか、別の理由なのかは不明。
どちらにしても、この方法だと解像度が低いので、追及はせずに、このまま放置します。
ちなみに、コードはこんな感じ（ほとんど列記しただけだけど）。
Sheets("1ページ目").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(Link:=False, DisplayAsIcon:=False, _
FileName:="20210608.pdf").Activate
AppActivate "Acrobat 文書 - Adobe Acrobat Reader DC", True
'SendKeys ("^q"), True
ThisWorkbook.Activate
Sheets("2ページ目").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(Link:=False, DisplayAsIcon:=False, _
FileName:="20210608.pdf").Activate
AppActivate "Acrobat 文書 - Adobe Acrobat Reader DC", True
SendKeys ("{DOWN}"), True '←これで次ページを表示
ThisWorkbook.Activate
ThisWorkbook.Save
本日試してみて、２ページ目が挿入できることを確認いたしました。
（何度か試しているとちゅう、AcrobatReaderを閉じ忘れてステキにフリーズして、
結局PCを再起動までしてしまいました。。。）
で、その時点では、どうするか、はすでに決まっていたのですが、
興味があったので、VBAでどこまでできそうかを試してみました。
結論から言えば、
�．掘璽硲韻縫�ブジェクトの挿入１ページ目……○
��開いたAcrobatReaderをアクティブにして、SendkeysにてCtrl+Qで終了……○
��エクセルに戻って、シート２にオブジェクトの挿入……×
となり、何故か��でエラーになります。
一度だけ無事に通過してオブジェクトの挿入ができたことがありますが、
何故か、エクセルの上書き保存でエラー。。。
なので、�△鬚笋瓩董△い�なり��を試したところそれははOK。ファイルが２つ開いた状態になります。
続けて、
�い箸靴董�Ctrl+↓で、次ページを表示……○
�ゥ┘�セルを上書き保存
と続けてみましたが、シート２に挿入した画像は２ページ目にはなりませんでした。
これは、２つ開いた関係なのか、別の理由なのかは不明。
どちらにしても、この方法だと解像度が低いので、追及はせずに、このまま放置します。
ちなみに、コードはこんな感じ（ほとんど列記しただけだけど）。
Sheets("1ページ目").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(Link:=False, DisplayAsIcon:=False, _
FileName:="20210608.pdf").Activate
AppActivate "Acrobat 文書 - Adobe Acrobat Reader DC", True
'SendKeys ("^q"), True
ThisWorkbook.Activate
Sheets("2ページ目").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(Link:=False, DisplayAsIcon:=False, _
FileName:="20210608.pdf").Activate
AppActivate "Acrobat 文書 - Adobe Acrobat Reader DC", True
SendKeys ("{DOWN}"), True '←これで次ページを表示
ThisWorkbook.Activate
ThisWorkbook.Save
>>[31]
excel2010で動くかわからないけれど
こんなふうなものもあるのだということで・・・
どうしても、CMDの記述がうまくできなかったので BATファイルにしました。
名前：Acro.bat
内容：start AcroRd32 /A "page=5" "C:\Users\prof\Desktop\content.pdf"
（1行だけ）
Pdfをページ指定で開くコマンドです。
Book1で開いておいて、pdfsample.xlsm に保存します。
なにかの機会があれば、たたき台にしてください。
こんなモノに労力を使うより、Pythonを、インストールできるようにすることに労力を注いだほうが、有効だと思いますが・・・
Sub Pdf_Paste()
Dim FileN As Variant
Dim pBook As Workbook
FileN = "C:\Users\prof\Desktop\content.pdf"
Worksheets("1page").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(FileName:=FileN, _
Link:=False, DisplayAsIcon:=False).Select
Selection.Copy
Sheets("2page").Select
Range("A1").Select
ActiveSheet.Paste
CreateObject("WScript.Shell").Run "C:\Users\prof\Desktop\Acro.bat"
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
Worksheets("2page").Select
Selection.Verb Verb:=xlPrimary
Set pBook = Workbooks("Book1.xlsm")
pBook.SaveAs FileName:="C:\Users\prof\Desktop\pdfsample2.xlsm"
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
excel2010で動くかわからないけれど
こんなふうなものもあるのだということで・・・
どうしても、CMDの記述がうまくできなかったので BATファイルにしました。
名前：Acro.bat
内容：start AcroRd32 /A "page=5" "C:\Users\prof\Desktop\content.pdf"
（1行だけ）
Pdfをページ指定で開くコマンドです。
Book1で開いておいて、pdfsample.xlsm に保存します。
なにかの機会があれば、たたき台にしてください。
こんなモノに労力を使うより、Pythonを、インストールできるようにすることに労力を注いだほうが、有効だと思いますが・・・
Sub Pdf_Paste()
Dim FileN As Variant
Dim pBook As Workbook
FileN = "C:\Users\prof\Desktop\content.pdf"
Worksheets("1page").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(FileName:=FileN, _
Link:=False, DisplayAsIcon:=False).Select
Selection.Copy
Sheets("2page").Select
Range("A1").Select
ActiveSheet.Paste
CreateObject("WScript.Shell").Run "C:\Users\prof\Desktop\Acro.bat"
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
Worksheets("2page").Select
Selection.Verb Verb:=xlPrimary
Set pBook = Workbooks("Book1.xlsm")
pBook.SaveAs FileName:="C:\Users\prof\Desktop\pdfsample2.xlsm"
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
>>[33]
申し訳ありません。
上記コードは、PCによってはうまくいかないです。
Acrobat Readerを閉じたとき、開いていたページが残ることを利用したものでしたが、結果が不安定で、PCによっては、その結果が残らないことがわかりました。
Ctrl+A Ctrl+C が効かないPDFでも、編集（E) クリップボードにコピー（B)が使えるのではないかと、推測し、SendKeys を、使って、操作してみました。SendKeysを使う際には、PDFが立ち上がるまでに、SendKeysによってコマンドが送られるので、待ち を作る必要がありました。
kernel32は、Sleepを使うためのおまじないだそうです。＾＾；
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub Pdf_Paste2()
Dim FileN As Variant
FileN = "C:\Users\heisu\Desktop\GF3-2.pdf"
CreateObject("WScript.Shell").Run FileN
Sleep 5000
SendKeys "%E", True
SendKeys "B", True
Sleep 1000
Worksheets(1).Activate
Range("A1").Select
ActiveSheet.Paste
Sleep 3000
SendKeys "^{PGDN}", True
Sleep 2000
SendKeys "%E", True
SendKeys "B", True
Sleep 1000
Worksheets(2).Activate
Range("A1").Select
ActiveSheet.Paste
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
SendKeysが使えることがわかってバッチファイルを使わなくてもいいので、For~Nextと組み合わせれば、ページ数が増えても対応できるかと思います。
Sleepの時間、場所については、再考察が必要と思います。
もう少し、スマートに書けると思いますが、力不足ですみません。
申し訳ありません。
上記コードは、PCによってはうまくいかないです。
Acrobat Readerを閉じたとき、開いていたページが残ることを利用したものでしたが、結果が不安定で、PCによっては、その結果が残らないことがわかりました。
Ctrl+A Ctrl+C が効かないPDFでも、編集（E) クリップボードにコピー（B)が使えるのではないかと、推測し、SendKeys を、使って、操作してみました。SendKeysを使う際には、PDFが立ち上がるまでに、SendKeysによってコマンドが送られるので、待ち を作る必要がありました。
kernel32は、Sleepを使うためのおまじないだそうです。＾＾；
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub Pdf_Paste2()
Dim FileN As Variant
FileN = "C:\Users\heisu\Desktop\GF3-2.pdf"
CreateObject("WScript.Shell").Run FileN
Sleep 5000
SendKeys "%E", True
SendKeys "B", True
Sleep 1000
Worksheets(1).Activate
Range("A1").Select
ActiveSheet.Paste
Sleep 3000
SendKeys "^{PGDN}", True
Sleep 2000
SendKeys "%E", True
SendKeys "B", True
Sleep 1000
Worksheets(2).Activate
Range("A1").Select
ActiveSheet.Paste
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
SendKeysが使えることがわかってバッチファイルを使わなくてもいいので、For~Nextと組み合わせれば、ページ数が増えても対応できるかと思います。
Sleepの時間、場所については、再考察が必要と思います。
もう少し、スマートに書けると思いますが、力不足ですみません。
>>[35]
右手を怪我して、キーボードが上手く使えません。ｗｗ
ヘッドセットを購入して、音声入力にしようと思いますが、それまで長文が打てません。
2つ問題があります。
ひとつは、Windowsが、警告を出します。
設定で、許可をする必要があります。
もう一つは、
Officeが、６４ビットだった場合
おまじないを
Option Explicit
'### API 宣言
#If VBA7 Then '###（64bit）
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else '###（32bit）
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
に、変える必要があります。
右手を怪我して、キーボードが上手く使えません。ｗｗ
ヘッドセットを購入して、音声入力にしようと思いますが、それまで長文が打てません。
2つ問題があります。
ひとつは、Windowsが、警告を出します。
設定で、許可をする必要があります。
もう一つは、
Officeが、６４ビットだった場合
おまじないを
Option Explicit
'### API 宣言
#If VBA7 Then '###（64bit）
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else '###（32bit）
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
に、変える必要があります。
>>[36]
右手大丈夫ですか？
ご無理はなさらないでくださいね。休むのも治療の一環です。
さて、試してみました。
結論から言うと、出来たけど、使えない。。。（泣）でございます。
使えない理由は、解像度です。
私が試した時に、すごくキレイな画像がコピペできたのは、なんの勘違いだったのか、もうすでに確認ができません。。。
変だなぁと思って検索してみても、解像度が低いという情報しかなくて。
オブジェクトの挿入と同程度の解像度なら、現行の方法でできているので、あえて変更する必要が無い、というのが理由です。
オブジェクトの挿入だと、sleepなどで待機時間を作らなくてもよいですし。
で、出来たのも、なんだか、一筋縄でいかなくて（笑）
何が一筋縄でいかなかったかというと、Alt+Eが効かなかったのです。。
何度か試してみて、よくよく見たら、会社で使っているACROBATREADERは、Alt+Eで編集が開かないのです。
なにかショートカットが隠れてないかなーと、片っ端から押してみたのですが、空振り。
で、よくよく見てみると、Altキーを押すと、メニューバーの文字が反転するので、カーソルキーを押してみたら移動できました。
なので、sendkeysで、
｛％｝→｛Right｝→｛Enter｝→｛B｝
という具合に進みました。
このあとで、sleepの時間の調整をして、解像度問題が発覚するんですけれど（笑）
あ、おまじない、ありがとうございました。
64ビットバージョンも紹介してくださって。
今回は、いろいろお世話になりました。
ありがとうございました。
右手大丈夫ですか？
ご無理はなさらないでくださいね。休むのも治療の一環です。
さて、試してみました。
結論から言うと、出来たけど、使えない。。。（泣）でございます。
使えない理由は、解像度です。
私が試した時に、すごくキレイな画像がコピペできたのは、なんの勘違いだったのか、もうすでに確認ができません。。。
変だなぁと思って検索してみても、解像度が低いという情報しかなくて。
オブジェクトの挿入と同程度の解像度なら、現行の方法でできているので、あえて変更する必要が無い、というのが理由です。
オブジェクトの挿入だと、sleepなどで待機時間を作らなくてもよいですし。
で、出来たのも、なんだか、一筋縄でいかなくて（笑）
何が一筋縄でいかなかったかというと、Alt+Eが効かなかったのです。。
何度か試してみて、よくよく見たら、会社で使っているACROBATREADERは、Alt+Eで編集が開かないのです。
なにかショートカットが隠れてないかなーと、片っ端から押してみたのですが、空振り。
で、よくよく見てみると、Altキーを押すと、メニューバーの文字が反転するので、カーソルキーを押してみたら移動できました。
なので、sendkeysで、
｛％｝→｛Right｝→｛Enter｝→｛B｝
という具合に進みました。
このあとで、sleepの時間の調整をして、解像度問題が発覚するんですけれど（笑）
あ、おまじない、ありがとうございました。
64ビットバージョンも紹介してくださって。
今回は、いろいろお世話になりました。
ありがとうございました。
「蛇足」
Option Explicit
'API 宣言
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Pdf_Paste3()
Dim FileN As String
Dim sPAGE, ePAGE As Integer
Dim i As Integer
FileN = "C:\Users\heisuke\Desktop\GF3-2.pdf"
sPAGE = 2
ePAGE = 4
'PDFファイルを開く
CreateObject("WScript.Shell").Run FileN
Sleep 500
For i = sPAGE To ePAGE
'ページの変更
SendKeys "+(^N)", True
SendKeys i, True
SendKeys "{ENTER}"
'スナップショットで画像を取得
SendKeys "%E", True
SendKeys "A", True
SendKeys "^a", True
SendKeys "^c", True
Sleep 500
'ワークシートを追加してビットマップで貼り付け
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.PasteSpecial Format:="ビットマップ"
Next
'AcrobatReaderを閉じる
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
あらかじめ、Acrobat Readerの”環境設定” ”一般”で
”スナップショットツール画像に固定解像度を使用”にチェックを入れ、解像度（最大720）を指定しておく必要があります。
画像は、ビットマップのほうがきれいだと思いましたので、ビットマップを貼り付け時に指定しました。
Option Explicit
'API 宣言
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Pdf_Paste3()
Dim FileN As String
Dim sPAGE, ePAGE As Integer
Dim i As Integer
FileN = "C:\Users\heisuke\Desktop\GF3-2.pdf"
sPAGE = 2
ePAGE = 4
'PDFファイルを開く
CreateObject("WScript.Shell").Run FileN
Sleep 500
For i = sPAGE To ePAGE
'ページの変更
SendKeys "+(^N)", True
SendKeys i, True
SendKeys "{ENTER}"
'スナップショットで画像を取得
SendKeys "%E", True
SendKeys "A", True
SendKeys "^a", True
SendKeys "^c", True
Sleep 500
'ワークシートを追加してビットマップで貼り付け
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.PasteSpecial Format:="ビットマップ"
Next
'AcrobatReaderを閉じる
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
あらかじめ、Acrobat Readerの”環境設定” ”一般”で
”スナップショットツール画像に固定解像度を使用”にチェックを入れ、解像度（最大720）を指定しておく必要があります。
画像は、ビットマップのほうがきれいだと思いましたので、ビットマップを貼り付け時に指定しました。
Acrobat Readerの環境設定のデフォルト、リセット、初期化など、見つけることができませんでした。必要に応じて変えて使うことを、想定しているのだと思います。
画像の貼り付けなどしない人たちが、Readerのスナップショットツールを使うとも思われません。
Option Explicit
'API 宣言
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Pdf_Paste3()
Dim FileN As String
Dim sPAGE, ePAGE As Integer
Dim i As Integer
Dim HABA As Long
FileN = "C:\Users\heisuke\Desktop\GF3-2.pdf"
sPAGE = 2
ePAGE = 4
HABA = 430
'PDFファイルを開く
CreateObject("WScript.Shell").Run FileN
Sleep 2000
For i = sPAGE To ePAGE
'ページの変更
SendKeys "+(^N)", True
SendKeys i, True
SendKeys "{ENTER}"
'スナップショットで画像を取得
SendKeys "%E", True
SendKeys "A", True
SendKeys "^a", True
SendKeys "^c", True
Sleep 500
'ワークシートを追加してビットマップで貼り付け
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.PasteSpecial Format:="ビットマップ"
'画像を縮小
With ActiveSheet.Shapes(1)
.LockAspectRatio = True
.Width = HABA
End With
Next
'AcrobatReaderを閉じる
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
Acrobat Readerが開くまでの待機時間を、0.5秒から2秒にしました。
画像の縦横比を変えないで、縮小させました。
まだまだ手直しが必要と思います。
根本的には、コピー機もしくはPythonで処理をするのが正解だと思います。
画像の貼り付けなどしない人たちが、Readerのスナップショットツールを使うとも思われません。
Option Explicit
'API 宣言
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Pdf_Paste3()
Dim FileN As String
Dim sPAGE, ePAGE As Integer
Dim i As Integer
Dim HABA As Long
FileN = "C:\Users\heisuke\Desktop\GF3-2.pdf"
sPAGE = 2
ePAGE = 4
HABA = 430
'PDFファイルを開く
CreateObject("WScript.Shell").Run FileN
Sleep 2000
For i = sPAGE To ePAGE
'ページの変更
SendKeys "+(^N)", True
SendKeys i, True
SendKeys "{ENTER}"
'スナップショットで画像を取得
SendKeys "%E", True
SendKeys "A", True
SendKeys "^a", True
SendKeys "^c", True
Sleep 500
'ワークシートを追加してビットマップで貼り付け
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.PasteSpecial Format:="ビットマップ"
'画像を縮小
With ActiveSheet.Shapes(1)
.LockAspectRatio = True
.Width = HABA
End With
Next
'AcrobatReaderを閉じる
CreateObject("WScript.Shell").Run "cmd.exe /c " & "taskkill /IM AcroRd32.exe"
End Sub
Acrobat Readerが開くまでの待機時間を、0.5秒から2秒にしました。
画像の縦横比を変えないで、縮小させました。
まだまだ手直しが必要と思います。
根本的には、コピー機もしくはPythonで処理をするのが正解だと思います。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
Excel（エクセル）活用 更新情報
Excel（エクセル）活用のメンバーはこんなコミュニティにも参加しています
人気コミュニティランキング
- 1位
- パニック障害とうつ病
- 8432人
- 2位
- 音楽が無いと生きていけない
- 195995人
- 3位
- マイミク募集はここで。
- 89505人