標題: [發問] 請問Excel工作表中的圖片裁切 [打印本頁]

---

作者: CaoCao    時間: 2023-8-14 13:35     標題: 請問Excel工作表中的圖片裁切

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

---

作者: singo1232001    時間: 2023-8-22 06:10

回復 1# CaoCao


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

---

作者: 自我感覺良好    時間: 2023-9-4 08:42

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

---

作者: 自我感覺良好    時間: 2023-9-4 09:23

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


    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    時間: 2023-11-16 17:19

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)