[發問] 請問Excel工作表中的圖片裁切

CaoCao

請問各位大大，我在工作表中有不特定數量的圖片，想把選中的圖片裁切掉頂部的20%，其餘大小都不變，並把裁切後的圖片上移到原本的位置，寫成VBA的話要怎麼寫呢？

singo1232001

回復 1# CaoCao


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropTop = .CropTop + Z.Height * 0.2
End With
Next
End Sub

自我感覺良好

這是刪圁片的上方，如果要刪左邊或右邊，要怎樣作呢？

自我感覺良好

原來可以這搞的
太慼謝了…


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropTop = .CropTop + Z.Height * 0.2
End With
Next
End Sub


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropRight = .GropRight + Z.Height * 0.2
End With
Next
End Sub


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropLeft = .CropLeft + Z.Height * 0.2
End With
Next
End Sub

CaoCao

先在此謝謝各位大大的回覆，小弟除了上來簽到外，一直沒有空仔細研究，會找個時間好好測試一下，感謝各位！