画像のトリミング（PictureFormat,Crop）

最終更新日：2018-08-30

画像のトリミング（PictureFormat,Crop）

エクセルで画像をトリミングするマクロになります、

画像の一部を四角に切り取るVBAコードの解説です。

図形で切り取る等は、自動記録のコードをほぼそのまま使えるはずですので、

ここでは、基本的かつ汎用的な、一部を四角に切り取るVBAコードについて、

サンプルコードを掲載して解説します。

画像の一部を四角にトリミング

Sub TrimPicture()
　　Const OffTop As Double = 100 '上の切り取り
　　Const OffLeft As Double = 150 '左の切り取り
　　Const OffBottom As Double = 400 '下の切り取り
　　Const OffRight As Double = 600 '右の切り取り
　　Dim ws As Worksheet
　　Dim sp1 As Shape
　　Set ws = ActiveSheet
　　Set sp1 = ws.Shapes(1)
　　With sp1
　　　　.PictureFormat.CropTop = OffTop
　　　　.PictureFormat.CropLeft = OffLeft
　　　　.PictureFormat.CropBottom = OffBottom
　　　　.PictureFormat.CropRight = OffRight
　　End With
End Sub

VBAコードは見た通りですので、特に解説は必用ないと思います。

気を付けて頂きたいのは、画像自体は元の画像がそのまま残っているという事です。
従って、次のサンプルコードで元に戻すことが出来ます。

ファイルサイズが問題にならないのなら、
このトリミングのVBA実行したままでも問題はありません。

トリミングされた画像をもとに戻す

Sub UndoPicture()
　　Dim ws As Worksheet
　　Dim sp1 As Shape
　　Set ws = ActiveSheet
　　Set sp1 = ws.Shapes(1)
　　With sp1.PictureFormat
　　　　.CropLeft = 0
　　　　.CropRight = 0
　　　　.CropTop = 0
　　　　.CropBottom = 0
　　End With
End Sub

トリミング位置を全て0に戻すことで、
トリミング前に戻すことが出来ます。

画像の一部を四角にトリミングし、貼り付けし直す

Sub TrimPictureAndPaste()
　　Const OffTop As Double = 56
　　Const OffLeft As Double = 133
　　Const OffBottm As Double = 464
　　Const OffRight As Double = 569
　　Dim ws As Worksheet
　　Dim sp1 As Shape
　　Dim sp2 As Shape
　　Set ws = ActiveSheet
　　Set sp1 = ws.Shapes(1)
　　With sp1
　　　　.PictureFormat.CropTop = OffTop
　　　　.PictureFormat.CropLeft = OffLeft
　　　　.PictureFormat.CropBottom = OffBottm
　　　　.PictureFormat.CropRight = OffRight
　　　　.Copy
　　　　ws.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False
　　　　Set sp2 = ws.Shapes(ws.Shapes.Count)
　　　　sp2.Top = .Top
　　　　sp2.Left = .Left
　　　　.Delete
　　End With
End Sub

最初に紹介したコード、TrimPictureを実行後に、
トリミング後の画像をコピーし、
元の画像位置に形式を選択して貼り付け、
最後に、元の画像を削除しています。

画像を、形式を選択して貼り付けしていますので、
トリミング前に戻すことはできません。
画像サイズは小さくなりますので、
Excelファイルが気になる場合に有効です。

マクロで画像をトリミングする事が必要になることは滅多ににないとは思います。
しかし、例えば、
画面キャプチャをマクロで取った場合に、不要な範囲を取り除きたいといった場合には、
今回のVBAコードが使えるはずです。

同じテーマ「マクロVBAサンプル集」の記事

図を確認しながら消していく（Shape）
オートシェイプを他ブックの同じ位置に貼り付ける（Shapes,DrawingObjects）
全シートの画面キャプチャを取得する（keybd_event）
写真の取込方法について（Pictures.Insert,Shapes.AddPicture）
写真をサムネイルに変換して取り込む（Shapes.AddPicture）
円グラフの色設定（Chart,SeriesCollection）
棒グラフ・折れ線グラフのサンプルマクロ
 人口ピラミッドのグラフをマクロで作成
 グラフで特定の横軸の色を変更するマクロ
 グラフのデータ範囲を自動拡張するマクロ
画像のトリミング（PictureFormat,Crop）

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.繰り返し処理（For Next)｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.定数と型宣言文字（Const）｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作

トップ >

マクロVBA >

マクロVBAサンプル集 >

画像のトリミング（PictureFormat,Crop）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

ExcelマクロVBAサンプル集 | 画像のトリミング（PictureFormat,Crop） | ExcelマクロVBAの実用サンプル、エクセルVBA集と解説