返回列表 上一主題 發帖

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

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
1# 跳轉到 »
發表於 2023-9-4 08:42 | 顯示全部帖子
這是刪圁片的上方，如果要刪左邊或右邊，要怎樣作呢？
50 字節以內
不支持自定義 Discuz! 代碼

TOP

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
2#
發表於 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
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題