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

公開日：2016-12-27　最終更新日：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.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
画像のトリミング（PictureFormat,Crop）

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
画像のトリミング（PictureFormat,Crop）