Excelマクロで複数画像を一括トリミングの手法【朝勉累計1,050分】

この記事ではこんなお悩みを解決します。

どうもヤドリです。

昨日のことでした。

ゲームトレードに売るアカウントの画像情報を編集しようとスマホのスクリーンショットを編集するときに、大量のスマホスクリーンショット画像をトリミングすることになりました。

いろいろ調べると一括で処理できましたので、ご紹介いたします。

条件は同じサイズの画像を同じ位置、同じ大きさでトリミングすることです。

ちなみに、出している商品はこちらです。

ゲームトレード

逆転オセロニア 【1週間限定出品】【チェック必須】神魔フェリヤ、最強S駒ランキングTOP駒多数 【ゲートレ公式】逆転オセロニアのアカウントデータ。人権駒もナイし、A駒も揃ってない！アカウントが弱すぎて話にならないんだよね。 強いアカウントならゲーム配信でき...

もし興味があれはお声かけいただけると幸いです。

Excelマクロの記録とコード編集で可能

Excelマクロの記録とコード編集で可能です。

何枚でも、一瞬で終わります。

まず、マクロの記録で1枚の画像をトリミングしましょう。

Excelの開発タグに「マクロの記録」ボタンがあります。

ボタンを押して、画像をトリミングすると、するとこのようなコードができます。

必要なのは赤いマーカー部分です。

Sub Macro2()
    ActiveSheet.Shapes.Range(Array("Picture 15")).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.IncrementTop 57.3751181102
    Selection.ShapeRange.ScaleWidth 0.8390714827, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.8528843422, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 338
    Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 791
    Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 24
    Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 20
 End Sub

次に黄色のマーカー部分を足しましょう。

「Alt」+「F11」のショートカットでVBAでプログラムを書く場所が現れます。

マクロの記録でできたコードの「Selection」を消しましょう。

「Selection」を一気に消す方法は【置換】です。

置換のショートカットは「Ctrl」+「H」

『検索する文字列』の欄に「Selection」をインプットします。

『置換後の文字列』の欄は空白のまま『置換』をクリックしましょう。

Option Explicit
Sub Macro1()
Dim i
For Each i In ActiveSheet.Pictures
　With i
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.IncrementTop 57.3751181102
    .ShapeRange.ScaleWidth 0.8390714827, msoFalse, msoScaleFromTopLeft
    .ShapeRange.ScaleHeight 0.8528843422, msoFalse, msoScaleFromTopLeft
    .ShapeRange.PictureFormat.Crop.PictureWidth = 338
    .ShapeRange.PictureFormat.Crop.PictureHeight = 791
    .ShapeRange.PictureFormat.Crop.PictureOffsetX = 24
    .ShapeRange.PictureFormat.Crop.PictureOffsetY = 20


 End With
Next i
End Sub

このコードを実行すれば、同じシートにある他の画像も同じように一括でトリミングすることができます。

使いどころ

使いどころは、、

• ゲームを売るときのスマホスクリーンショットの画像編集
• 定点撮影した画像の編集

などではないでしょうか？

他にもたくさんの画像を決まった形でトリミングする方には有効な手段になりえます。

まとめ

あっという間です。

使いどころは少ないかもしれませんが、久しぶりに感動しました。

いやいやExcelマクロって難しいよね。なんて思う方も多いハズ。

そんなことないですよ。

私も独学でここまできました。

知っていると本当に選択肢が増えます。

とくに生産管理で働いている方にはおすすめです。

生産管理の業務とExcelマクロの愛称は抜群なんです。

ぜひこの機会にチャレンジしてみましょう。

気になる方はこちらの記事もどうぞ。

まずはこちらのゲーミングマウスです。

ボタンが沢山あって、それぞれにコマンドを設定することができます。

実は設計開発課のメンバーは全員このゲーミングマウスなんですよね。

それで生産管理の私もマネして買ってみました。

そしたら、マジで良い！

良すぎてプライベートでも買いましたもん。

私は副業でこのようにブログを書いているんですが、やはり、コピペとか、ファイルを開いたり、Googleドキュメントを開いたりします。

しかもメチャクチャします。

そんな作業をコマンドに設定しておけば、ボタン一つで処理ができるんです。

設計開発の方達も各々に設定していて、ダブルクリックをシングルクリックにしたり、標準図をボタンに設定していたりします。

ボタンの設定は人それぞれですが、使いこむことが可能です。

1homefurnitモニターアーム 2画面

つぎにモニターアームです。

これを買ったキッカケは、家でもモニターアームを使っていて、会社でも使えるんちゃうかと思って調査していました。

すると、情報システム室のメンバーは既に全員がモニターアームだったんですね。

なので、私もこっそり買ってもらいました。

「こっそり」というのも、なかなかこういうのってまともに行くと、買ってもらえないんですよね。

とはいえ、10,000円くらいまでなら、備品扱いでイケるので、年末にスルっと買いました。

ワイドのモニターを2つ使っているんですが、2つとも宙に浮いて、パソコンの足がなくなったので、かなりデスクもスッキリしました。

モニターの足があると、ホコリがたまったり、配線が汚かったりするんですが、モニターアームは違います。

写真のように配線をまとめられるし、掃除もしやすいです。

モニターが回転できるのも良かったですね。

最近ではマインドマップを使って情報をまとめたんですが、縦長になったんです。

ワイドモニターといえど、縦の寸法は決まってて、縦長のマインドマップはメチャクチャ字が小さくなるんです。

でも、モニターアームがあるので、モニターを縦にすることができたんです。

すると、ワイド画面も縦に活きてメチャクチャ見やすくなりました。

それから、生産技術課は全員モニターアームになりましたね。

業務効率というか、環境改善の面で効果があるのかなと思いますね。

2021年9月4日の勉強

floatの基礎① – 初心者のためのWEBデザイナーの教科書 (cocohp.com)

これが練習の成果です。

float(回り込み)プロパティ – 初心者のためのWEBデザイナーの教科書 (cocohp.com)

これが練習の成果です。