ExcelのVBAにて、JPG画像ファイルを直接PDFに変換するコードについて

以前の記事で、
VB.NETを利用して、

画像を、直接PDFに変換するコードを
紹介させていただきましたが、
http://oyk3865b.blog13.fc2.com/blog-entry-1140.html



回は、そのコードを
ExcelのVBAにて動作するように書き直しましたので
紹介させていただきます。





以下のコードは、
Excel2013に付属の、VBAにて記述いたしております。

VB.net系列のコードと比較して、
Excelなど、VBA機能が付いたOfficeをお持ちの方なら、
すぐにお試しいただけるコードなので、

より身近なコードになっていると思います。

また、長ったるいコードではございますが、
よろしくお願いいたします。


今回のコードには私の思い違いなど、
不適切な部分が、多分に含まれますので、
適時、修正していただけると幸いでございます。



★一部変換に失敗するJPG画像があります。


このコードの作成に関しまして、

『vba - How to points Width and Height from LoadImage() in PowerPoint - Stack Overflow』
http://stackoverflow.com/questions/19119387/how-to-points-width-and-height-from-loadimage-in-powerpoint


『ExcelなどのVBA(VB6)で、ファイルを無圧縮モードでzipにアーカイブするコードについて。』(自分のブログ記事です)
http://oyk3865b.blog13.fc2.com/blog-entry-2169.html


『UnitOfMeasure』
https://barcodewiz.com/user-manual/activex-control/unitofmeasure.aspx



以上のサイト様の情報を、参考・引用させていただきました。




以下のコードは、
1.「Excel マクロ有効ブック」を、新規作成して、
2.「Alt」+「F11」キーを押し下げて、表示されるVBAのコード画面に、
3.そのまま、貼り付け、
4.コード中の「dousa_test()」にカーソルを、合わせて
5.「F5」キーを押し下げることで、
動作するようにしてあります。
snapshot011702384.jpg


また、同じコードを持った、
Excel2013の「Excel マクロ有効ブック」を、
https://box.yahoo.co.jp/guest/viewer?sid=box-l-whyh2ir4gsdpaezhglawq7fiyu-1001&uniqid=345ca1c6-cb2e-4355-98cf-b0c3b4450db1
↑こちらの中で、「JPGからPDFへの変換ルーチン公開用Book」として、
公開いたしております。



あくまで、公開用に必要部分だけに留め
端折ったコードですので、

不十分な部分が多々ございますので、
遂次、ご自身で、修正いただけると幸いです。









以上 大変手抜きで、大まかで不十分かつ、長ったるいコードで
誤っている部分も多々あると思いますが。
何かのお役に立てれば、幸いでございます。


また、同じコードで、さらに端折って
スリム化したものは、Yahoo!の知恵ノートにて、公開いたしております。
http://note.chiebukuro.yahoo.co.jp/detail/n381740


また、
今回のコードで作成したPDFが、誤りや、破損がないか。
『PDF Tools Online - Repair PDF』様のサイトで、
https://www.pdf-online.com/osa/repair.aspx
確認いたしております。
snapshot069537812.jpg


こんな長いん、読めへんわ~!!
                       _rrv、   〈\_
                        v=イ  <::::::::::=-
rv、 (\-‐  ̄ ヽ              〈  { <::_::::::::::::::::::\
z=イ∨                        V ∧/(/ :::::::::::::::::::::i
.∨ |ルr|      八            V  ∨::::::::::::::::::::::::::|
. ∨ }人      ._(               _r‐、∧ーi|::::{::::::|::::::::::::::ハ RXキック!
  ∨レ'^X⌒ヽ{⌒ヽ  /)-‐=ニ=‐-///「    人::::\|:::::::::::::乂
    \  ∧V/////:>(乙x-‐  ̄>.〈//人   \ \::::\:::::::\:::ヽ
     \ └<  ̄ { (と二二二三三}///∧_ イ \_>―ヘ ::::::N::_〉
      ∧    _〉        \/////厂         V}ノ
      ⌒l_//////\          ̄
        |/////////
        |//∨Z\ ‐<て⌒ヽ
         \ 〉‐ヘ⌒X ̄ \_ノ
          \/ \_ノ


※AAは、http://anime.ja.utf8art.com/arc/yuyushiki_15.htmlよりの引用


以上
ありがとうございました。
スポンサーサイト

テーマ : EXCEL - ジャンル : コンピュータ

コメント

コメントの投稿

管理者にだけ表示を許可する

トラックバック


この記事にトラックバックする(FC2ブログユーザー) URL

プロフィール





最新記事
最新コメント
最新トラックバック



月別アーカイブ
カテゴリ