On Oct 21, 2017, at 9:18 AM, Wu Alex wrote:
Hi Mike,
1. Click ‘全球’ 工作表,發現需要一段時間才能click 儲存格,進而輸入股票代號等
其原因為工作表上有太多的圖案正在載入, 如下圖, 常用a尋找與選取a選取窗格 可以看出
其他工作表亦有此情形, 但全球最嚴重
2. 為何會有這些圖案:
推測之前直接COPY WEB PAGE進來所致,
3. 快速解決之道:
每次執行完後, 最後call below code
(附檔Module 29 , 該檔案係用你於10/19下午1:52寄給我的email附檔修改)
Public Sub Delete_Shapes()
Select Case ActiveSheet.Name
Case Is = "全球", "美股", "台股", "港股", "中股", "大盤"
If ActiveSheet.DrawingObjects.Count > 0 Then ActiveSheet.DrawingObjects.Delete
Case Else
End Select
End Sub
4. 請勿將 收藏 納入, 不然會使 “清空”, “縮小”, “放大”, “更新”等被刪除
5. 刪除後, 檔案size會縮小一些.
|