返回列表 上一主題 發帖

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

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

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

回復 1# CaoCao


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

TOP

這是刪圁片的上方,如果要刪左邊或右邊,要怎樣作呢?
50 字節以內
不支持自定義 Discuz! 代碼

TOP

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


    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
50 字節以內
不支持自定義 Discuz! 代碼

TOP

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

TOP

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題