• ベストアンサー

エクセル中の画像をトリミングするマクロ。

教えて下さい。 エクセルに多量の写真を貼り付けて工程の記録をとっています。 その際に、ただ貼るのではなく4隅を少しトリミングしなければなりません。 (撮影したいものが、写真をやや中央からずれたところにあるので。) これまで、一枚一枚貼り付けていたのですが、 ミスの発生もさることながら、時間が非常にかかってしまっています。 そこで、もし可能でしたらマクロでこのような作業はできないものか、とネット検索をしていたしだいです。 実際の考える流れなのですが、 ・あるフォルダの中の写真をすべてエクセルに取り込む。(できればファイル名も取得して画像の横にできたら助かります。) ・写真の四方からのトリミングする。(左側は1cm、右側は4cm、上は1cm、下は2cmカットといったように。) ・トリミング後の写真をXXcm×YYcmに拡大もしくは縮小する。 サイズのcmは一例ですが、このような流れで無数の写真と取り込みつつ、トリムする方法をご教授頂けると助かります。 よろしくお願い致します。

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

  • ベストアンサー
  • CC_T
  • ベストアンサー率47% (1038/2201)
回答No.1

マクロを組めば実現できるでしょうが、マクロ編集した事が無い方には手間がかかるのでお勧めしません。 別に、画像を指定領域で一括トリミングするフリーソフトが何種類かあると思いますので、そちらをご利用になるほうがはるかに時間短縮になるでしょう。 「画像 一括 トリミング 指定 領域」といった語句を組み合わせての検索をお勧めします。 ~~~ マクロを組むならば、 フォルダの指定 対象ファイル名を配列取得  以下、 画像ファイルのラストまで順次処理  |画像読み込み  |指定サイズにトリミング  |切り取り&図形式で再貼り付け(これでファイルサイズが小さくできる)  |図のファイル名を新規テキストボックスに書き出し  |図とテキストボックスを並べてグループ化  Loop 縦並びで整列表示 といった流れになるでしょうか。 それぞれの段階にそって手順の検索やマクロの自動記録を使って経験していけば、自作も十分可能でしょう。

stone_wash
質問者

お礼

ご返答ありがとうございます。 マクロは簡単なものをモディファイする程度しか出来ませんので、素直にソフトウェアを使うことにしました。

関連するQ&A

  • エクセルで画像編集「GIMP」のようにトリミング

    お世話になっております。 エクセルで写真をトリミングし、表などでまとめております。 エクセルのトリミングは四方や角からカーソル操作で作業しておりますが、なかなか手間がかかっております。 画像編集ソフト「GIMP」のトリミング方法は切り取りたい位置を 対角線で指定でき非常にトリミング操作がしやすいのですが エクセル上でこのような機能はありますでしょうか? GIMP⇒エクセル というのもまたひと手間で、 エクセルで全て完結できるとありがたいのです。 ご教示のほど、よろしくお願いいたします。

  • 画像から指定サイズをトリミング

    お世話になっております。 主に、デジカメ等で撮った写真から携帯の待ち受け用にトリミングするツールを探しております。 いろいろ試してみたのですが、使いやすいものが見つかりません。 私の所望するイメージとしては 画像読み込み  ↓ 予めトリミングサイズを指定 …★  ↓ 画像上に指定したサイズのトリミングフレームが現れる (元画像上でドラッグ&ドロップにより動かすことが可能)…★  ↓ アスペクト比を保存したまま元画像の拡大・縮小可 (このときフレームは影響を受けずそのまま)…★  ↓ 拡大縮小と切り出し場所を調整し、切り出し実行 ★マークのあるところが特に望んでいる機能です。 以前のバージョンの「簡易待ち受け画像メーカー」というツールでは、これが出来た気がしたのですが、 現在のバージョンは3つ目の機能が無くなり、拡大縮小が縦方向・横方向独立になってしまっている模様でした(しかも微調整なので、大きく変更したいときは面倒?)。 もし適当なツールをご存知でしたらご教授下さい。 よろしくお願い致します。

  • EXCEL VBAで画像をトリミング

    Excelのワークシート上に画像(pic1)と四角の図形(waku)があります。 pic1にwakuを重ね、トリミングする場所を視覚的に確認したあと、VBAを実行し、wakuと同じ位置・サイズでpic1をトリミングするということを考えています。 とりあえず、実験的に左側をトリミングするマクロを作ってみましたがうまくいきません。 やってみた手順としては・・・ 1.wakuの左端位置を取得 2.pic1の左端位置を取得 3.その差分を取得 4.差分と同サイズ、pic1の左側をトリミングする ・・・です。 Sub 左端をトリミング() '枠の位置を取得 Dim wLeft As Single wLeft = ActiveSheet.Shapes("waku").Left '写真の位置を取得 Dim pLeft As Single pLeft = ActiveSheet.Shapes("pct1").Left '左側の差分を取得 Dim lTrim As Single lTrim = wLeft - pLeft ActiveSheet.Shapes("pct1").Select Selection.ShapeRange.PictureFormat.CropLeft = lTrim End Sub 結果としては想定しているものの2倍分くらい、トリミングされてしまいます。 最後の一文が、よくわからないまま、ネットから拾ってきた感じで使用しており、そこに問題があるのかと思うのですが・・・ どのようにするのが正しいのか、教えていただければ幸いです。 最終的には同様に上端を、右端・下端についてはそれぞれの図形のサイズの差からトリミングすべきポイントを抽出して希望のサイズにトリミングするつもりでいます。 ちなみに趣旨は・・・ ・PCの知識の少ない人でも出来るようにしたい。 ・wakuをリサイズさせないことで、縦横比・画像サイズを固定したい。 ・・・というものです。 「VBAなんか使わなくても、こうすれば簡単じゃん!」みたいな方法があればあわせて教えていただ得れば幸いです。

  • EXCELのシートを拡大・縮小するマクロ

    EXCELのシートを拡大・縮小するマクロをご教授下さい。 拡大ボタンをクリックする度に拡大し 縮小ボタンをクリックする度に縮小させるのが目的です。 特定の倍率に対して1個のボタンを設定することは できるのですが、上のようなことは可能でしょうか? 例えば、 拡大ボタンを押す毎に10%づつ拡大 縮小ボタンを押す毎に10%づつ縮小 のようなことができればと思うのですが・・・・

  • エクセルシートの画像の固定

    エクセル 2010 を使用しています。 エクセルシートに画像を取り込み(シートの左 上)トリミングをすると 画像全体の天地・左右の拡大縮小はできるのですが、画像の一部を トリミングすると、画像が移動してトリミングができません。 画像を固定する方法を教えてください。

  • ワードで写真をトリミングするとき・・・

    写真をワードに取り込み、図の形式→トリミング→図形に合わせてトリミングに進み基本図形の円を選ぶと写真は楕円の中に収まり、これを正円にすると写真も歪んでしまします。正円を保ち写真を歪ませずに収めるにはどうしたらいいでしょうか。 また、円の大きさを変えず中の写真を上下左右、あるいは縮小・拡大する方法も教えていただければ助かります。 Windows10 NEC LAVIE 初心者です。

  • デジカメ写真のトリミングソフトを捜してます。使用パソコンWinXPPr

    デジカメ写真のトリミングソフトを捜してます。使用パソコンWinXPPro。トリミングの際に切り取りエリアに縦2本・横2本のグリッド線が表示されて、切り取りエリアの拡大・縮小に合わせてグリッド線も拡大・縮小するフリーソフトが有りましたら、教えて頂けませんでしょうか?現在はJTrimを使用中。よろしくお願いいたします。

  • paintで画像の明暗ができますか?

    パソコンはWindows7です。デジカメで撮った写真をpaintで拡大縮小やトリミングなどはしてますが、暗い画像を明るくしたり暗くしたりはできるのでしょうか。可能ならやり方を知りたいです。

  • Excel2007 印刷マクロ

    マクロを使って縮小印刷したいのですが,うまくいきません。 データシートと印刷シートが分かれていて,印刷シートはA4縦です。 通常はこれで問題ないのですが,データ確認のために 縮小して印刷することがあります。 A4縦をA4横に印刷し,1枚目は左側,2枚目は右側。 3枚目は次の用紙の左側,4枚目は右側にしたいのです。 Zoom = 71とOrientation = xlLandscapeを使うと, 用紙は横になり,縮小されますが,用紙の中央に印刷されます。 印刷ボタン(マクロの登録)は2つ作り, 1つは通常用,もう1つは縮小用を割り当てようと思ってます。

  • エクセルに写真を・・・

    アルバムを作成するため、エクセルに決まった大きさに 縮小・拡大して写真を取り込みたいのですが 枚数が半端じゃないため困っていたところ 知人がマクロでつくったという とても便利なアルバム台紙のデータをくれたのです ・・・があやまってなくしてしまいました。 どなたか詳しい方おられたら教えてください。

専門家に質問してみよう