减小EXCEL体积

Sub delshapes()

Dim sp As Shape, n

For i = 1 To Sheets.Count
    For Each sp In Sheets(i).Shapes
        If sp.Width < 14.25 Or sp.Height < 14.25 Then   '约小于0.5cm，根据需要设定
            sp.Delete
            n = n + 1
        End If
    Next sp
Next

MsgBox "共删除了" & n & "个对象"

End Sub

 

excel

 http://efreedom.com/Question/1-1230990/Modify-Excel-Shape-Delphi

 http://stackoverflow.com/questions/1230990/modify-an-excel-shape-from-delphi

 http://pubs.logicalexpressions.com/pub0009/lpmarticle.asp?id=349

 http://www.aspfree.com/c/a/Windows-Scripting/Writing-Excel-Addons/2/

 http://eelab.gxu.edu.cn/list.asp?unid=523

 

 

 

thread

 http://www.eonclash.com/Tutorials/Multithreading/MartinHarvey1.1/Ch1.html

 http://www.componentace.com/multi-thread-delphi.htm

 http://delphi.about.com/od/kbthread/Threading_in_Delphi.htm