• ベストアンサー

エクセル マクロ

いつもお世話になっております。 Aというフォルダにある写真を、挿入→図→ファイルから でシートに写真を10枚貼り付けました。 1枚目の写真のみを選択し、コピー、選択した写真をクリア→写真のあった場所に形式をJPEGとして貼り付け、それを繰り返して、10枚全部JPEGにするにはどんなマクロにしたらいいのでしょうか? 10枚の写真を1枚のJPEGではなく、1枚ごとのJPEGにしたいです。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • yukapapa
  • ベストアンサー率60% (60/100)
回答No.2

#1です。 JPEGは圧縮する事でファイルサイズを抑えるフォーマットなのですが、一度圧縮されると戻せない性質(非可逆圧縮ファイル)です。 ExcelのJPEG変換は圧縮率が高めのようで、その作業は確実に画像の品質を劣化させると思います。 コピーしたブックでその作業を何度か繰り返し、コピー前のブックと見比べてみると一目瞭然です。 (何度も繰り返すとブロックノイズだらけになります) それでも良いって事なら、以下のようなマクロでアクティブシートに挿入した画像をJPEGに置き換えられます。 (検証 Excel2003) Sub Test() Dim sh As Shape, imgTop, imgLeft With ActiveSheet   For Each sh In .Shapes     If sh.Type = msoPicture Then       imgTop = sh.Top: imgLeft = sh.Left       sh.Copy: sh.Delete       .PasteSpecial Format:="図 (JPEG)"       Selection.Top = imgTop       Selection.Left = imgLeft     End If   Next sh End With End Sub

yamada_tarou
質問者

お礼

ありがとうございます。 だいぶ便利になりました。 JPEG、GIF、PNGと各形式で 試してみたのですが、やはりJPEGが使いやすかったです。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • yukapapa
  • ベストアンサー率60% (60/100)
回答No.1

目的が理解出来ません。 ここの画像ファイルの保存形式を変換したいだけならばExcelを介して行う必要は無いと思いますけど、、、 各種のペイント系ソフトや画像表示ソフトで変換の機能を備えてたりしますよ。 例えば http://www8.plala.or.jp/kusutaku/iview/

yamada_tarou
質問者

補足

撮影した写真がエクセルに貼り付けてあります。 A4でプリントアウトするためにです。 枚数が100枚ほどあります。質問した作業を行うとエクセルのファイル容量を半分にできるから、質問した作業がしたいのです。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelマクロで、多数のシートの値だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。

    あまり詳しくないのですが、Excelマクロで、1つのファイルにある40くらいのシートの計算式等をすべて排除した値&図だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。 マクロを使わないでの方法は、 (1)、シート選択 (2)、CTRL+A(すべて選択) (3)、CTRL+C(コピー) (4)、形式を選択して貼り付け (5)、値(選択値) これをそのファイルが持っているシート分の繰り返しです。 宜しくお願いします。  

  • エクセルを閉じる時にマクロを実行する

    お世話になります。 エクセルのファイルを閉じる時にあるマクロを実行したいと思っています。 右上の×印をクリック、Alt+F4、Alt+F→X などエクセルを閉じようとしたときに自動的にマクロを動かすことが出来るでしょうか? マクロ自体は、あるシート全体をコピー→外のシートに形式を選択して貼り付け(値) というごく簡単なものです。 また参考までにエクセルファイルを開いたときにマクロを実行というものがあれば教えてください。 よろしくお願いします。

  • オブジェクトの容量を調べたい

    オブジェクトの容量を調べたい 写真がオブジェクトとして多数挿入してあるエクセルシートがあります。 このエクセルファイルの容量を減らすためオブジェクトをコピーしてJPEG形式で貼り付けたいのですが、 一部のオブジェクトだけが容量が大きく、ほとんどのオブジェクトは「コピーしてJPEG形式で貼り付ける」必要がありません。 質問です。 この多数のオブジェクトの中から容量の大きいオブジェクトを探し出す方法を教えてください。 (全てのオブジェクトを選択して「コピーしてJPEG形式で貼り付け」ようとしましたが、全部のオブジェクトが一つにまとまってしまい実用になりません。) よろしくお願いいたします。

  • エクセルマクロで複数シートのコピー

    マクロ初心者です。お世話になります。 アンケート集計に関するマクロの記述を色々調べたのですが、どうもよくわかりません。お手伝いいただけると助かります。 【ファイル前提】 (1)ファイルには複数のシート(最大で100シート)があります。(シート名は回答、回答(2)、回答(3)というような感じです。 (2)各シートともアンケート質問及び回答で構成され、どのシートも同じ形式です。 【実施したい作業】 (1)各シートの解答欄(C2:C100)をコピーし、新しいシート(集計用)にコピーをしたい。 (2)回答が列になっているので、行列を入れ替えて集計用シートに順番に貼り付けたい。 色々検索した結果、新しいシートを挿入して、繰り返し処理をすればいいような感じはわかるのですが、初心者のため、コードがよく読めません・・・ これから勉強します。よろしくお願いいたします。

  • Excelのマクロについて

    エクセルでマクロを組んで、備品の管理をしたいと思っているのですが以下のことをやるにはどういったマクロを組めばよいでしょうか?何か参考になるサイト等ありましたら教えていただければありがたいです。。。 ・写真をファイルから参照して挿入する(複数枚 ・備品ごとにシートを分けて管理 ・シートの移動はマクロのタブを押すと移動する ・シートは一覧もできる(項目名のみの羅列

  • マクロを削除したい

    私はマクロという機能を使ったことがありません。マクロが入ったファイルを使うことはありますが、自分がマクロを登録したり編集したりしたことがないので、マクロ自体はよくわかりません。 マクロが入ったファイルの1シートをコピーして使いたいのですが(その書式が欲しいため)、マクロはいらないのです。 でも普通にコピーするとマクロはついてきます。そしてそのシートに挿入されている画像はコピーされません。 マクロは要らず、画像と書式をコピーするにはどうしたらいいのでしょう?

  • 複数のEXCELファイルより一部の行を自動でマージするマクロ

    「(1)複数のEXCELファイル」より、「(2)特定のシート」の中のさらに「(3)特定の行」をコピーし、あるEXCELファイルの1シートに挿入していくマクロ(VBA)か、ソフトが掲載されているサイト、もしくは、やりかたを教えてください。 1.EXCELは、2003 2.「(1)複数のEXCELファイル」は、一つのフォルダにあり、データ形式は一緒。  そのフォルダにはEXCELファイルしか置きません。 3.「(2)特定のシート」について、シート名はどれも一部のみ一致します。  または位置(順番)は一緒です。 4.「(3)特定の行」はどのファイルも作りが一緒です。 VBA初心者ですが、ヒントをいただければ頑張りたいと考えています。

  • 複数のファイルにまたがるマクロについて

    詳しい方、教えて下さい。 あるファイル(Aとします)に、データが入っています。 そのデータを、複数の別ファイル(B,C,Dとします)に一度にコピーできるマクロというのは作成可能でしょうか。具体的には、ファイルAのワークシートに3銘柄の株価データが入っており、それをそれぞれファイルBCDのシート(同じ形式のファイルで、コピーする場所も同じです)に1回のマクロでコピーしたいのです。つまり、BCDのワークシートそれぞれでマクロを作成するのではなく、一発でAからBCDへのコピーができるマクロが可能か知りたいのです。また、そのマクロを動かす時に、BCDファイルを開いていなくともコピーはできるのでしょうか。少しわかりにくい質問かもしれませんが、宜しくお願い致します。

  • エクセルマクロでPDFを開いてコピペしたい

    今の環境はWindows7、Office2010、Adobe ReaderXI バージョン11.05です。 ●フォルダ(その都度違うフォルダになります)の中にあるPDFファイルが数百、   時には数千あります。 ●どのPDFもテキスト形式で、形はどれも同じものになります。 やりたい事は 1.エクセルAAA.xlsmでそのフォルダにあるPDFを開いて全体をコピー。 2.AAA.xlsmの新しいシートを後ろに作って貼り付け。 3.元のPDFを閉じる。 4.次のPDFを開く 以下最後までループ なのですが、取りあえず任意のフォルダのファイル名一覧をフルパスでエクセルに書き出すマクロは組めました。 問題はここからです。 そのファイル一覧を元にしてPDFを立ち上げたいのですが、自分で指定した場所しか出来ないのと、 PDFでそのファイルが開かないという、初めから躓いてしまいました。 初めから考え方も違うのかもしれません。 マクロは初心者です。 どうぞお教え下さい

  • エクセルのマクロ

    素人なのですみませんが教えてください エクセルのマクロを使用して エクセルを起動して ウィンドウズ内のあるフォルダ内のエクセルファイルをコピーをして違うフォルダに貼り付けをしたいのですが、どのようにマクロを組み込むのか教えてください(マクロの式) (例)エクセル起動後エクセルのマクロにて c\Aフォルダ\aファイル←コピー c\Bフォルダ\aファイル←貼り付け

専門家に質問してみよう