Simon Yeh

關於Simon Yeh

對不起,我忘了寫自我介紹!

【小護士的IT生活】暴肥Word檔掛急診

回應

※ 引述《轉蛋俠》的留言:
> 好熱門的文章呀,大家也沒有看過容量200MB之奇妙Excel呢?厲害的是,裡面一張插圖也沒有,真不知道是怎麼搞成這樣的,就算記憶體有2GB,拖動一個儲存格都快要當機,難怪初學者每天都說要電腦升級

可以參考這篇
================================
magicchiu 2007-1-10 22:29

EXCEL檔案縮小(限曾插入圖片有用)
在EXCE當中...
如果曾經有大量插入圖片之後...
再把圖片刪掉...
可是..這時候會發檔案大小還是一樣大...
這該怎麼辦才好...
以下是一個好方法哦...
把下面的程式碼寫成一個巨集,然後執行它

Option Explicit
Sub testme01()
Dim myShape As Shape
Dim resp As Long

MsgBox "There are " & ActiveSheet.Shapes.Count _
&" shapes on this worksheet"

For Each myShape In ActiveSheet.Shapes
With myShape
'resp = vbYes
resp = MsgBox(prompt:="delete " & .Name _
& vbLf & "Near " & .TopLeftCell.Address(0, 0) & "?", _
Buttons:=vbYesNo)
If resp = vbYes Then
.Delete
End If
End With
Next myShape
End Sub

上述的程式就是要把SHAPE刪掉...
因為就算圖片刪掉了...
但是SHAPE還是存在哦...