画像のトリミング（PictureFormat,Crop）｜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 = OffRigh