標題: [發問] 如何一次過刪除 (直線接點)圖案? [打印本頁]

---

作者: idsmchow    時間: 2012-1-7 00:25     標題: 如何一次過刪除 (直線接點)圖案?

本帖最後由 idsmchow 於 2012-1-7 00:27 編輯

如題 每一張Sheet都有好多 (直線接點)圖案, 請問好何刪除? (這是Oracle 出來的格式)

另外想請問 (直線接點)圖案, 是否會影響巨集的運作?  因為每當有這些格式出現, 電腦就出現白畫面, 等了很久也沒有反應, 需要強行 ALT+CTR+DEL  colse.

而且 是否會使到 File size 激增?

請問應好何解決問題?

---

作者: jarodz    時間: 2012-1-7 01:23

本帖最後由 jarodz 於 2012-1-7 13:07 編輯

可以用
activesheet.shapes.selectall
selection.delete
把這張sheet的shape全部刪除。

---

作者: GBKEE    時間: 2012-1-7 08:21

回復 1# idsmchow
想請問 (直線接點)圖案, 是否會影響巨集的運作?
是你(直線接點)圖案太多了 (1435 ) 檔案變大  
   

1. Sub Ex()
   
2.     MsgBox ActiveSheet.Shapes.Count
   
3. End Sub

複製代碼

---

作者: idsmchow    時間: 2012-1-7 13:05

請問如何修改,一次過刪除多張Sheet -(直線接點). 謝謝!!

Sub test()
    Dim a As Integer, b As Range, eachsht As Worksheet
    For a = 5 To 252
    Set b = Sheets("Table").Cells(a, 2)
    For Each eachsht In Worksheets

    If eachsht.Name = b Then
    eachsht.Shapes.SelectAll
    Selection.Delete
    End If

    Next
    Next
End Sub

---

作者: jarodz    時間: 2012-1-7 13:12

Dim b As string

b = sheets("Table").Cells(a,2).value

---

作者: GBKEE    時間: 2012-1-7 13:32

回復 4# idsmchow

1. Sub Ex()
   
2.     Dim A As Integer
   
3.     For A = 5 To 252
   
4.         With Sheets(Sheets("Table").Cells(A, 2).Text)
   
5.             .Activate
   
6.             .Shapes.SelectAll
   
7.             Selection.Delete
   
8.         End With
   
9.     Next
   
10. End Sub

複製代碼

---

作者: idsmchow    時間: 2012-1-9 00:33

回復 6# GBKEE


    非常有用, 簡單幾句就能做出效果.  
   非常感謝大家回答:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)