Xóa tất cả các hình dạng trong bảng tính excel ngoại trừ các điều khiển biểu mẫu

Question

Tôi có bảng tính excel trong đó macro được gắn với nút vẽ hình dạng động dựa trên thông số nhập của người dùng trong trang tính.

Tôi đang cố viết macro mới để làm sạch trang tính hoặc nói cách khác là xóa tất cả các hình trong trang tính.

Tôi đã thử sử dụng mã bên dưới và thực sự xóa tất cả các hình dạng, tuy nhiên các nút điều khiển biểu mẫu nút cũng bị xóa trong quá trình. Có cách nào dễ dàng để loại bỏ các hình dạng (mũi tên, hộp văn bản, hình elip, v.v.) trong bảng tính không? Cảm ơn nhiều!!!

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    Shp.Delete 
Next Shp 

End Sub 

Answer 1

Để xóa trạng thái tự động và hộp văn bản duy nhất mà bạn có thể sử dụng:

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    If Shp.Type = msoAutoShape Or Shp.Type = msoTextBox Then Shp.Delete 
Next Shp 

End Sub 

Hoặc bạn có thể làm việc theo cách khác xung quanh và chỉ định các loại không xóa. Bạn có thể sử dụng các kiểu liệt kê nhưng nó có thể đọc được hơn để sử dụng các tên kiểu. Đoạn mã sau sẽ xóa mọi thứ ngoài các Điều khiển biểu mẫu và đối tượng điều khiển OLE.

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    If Not (Shp.Type = msoOLEControlObject Or Shp.Type = msoFormControl) Then Shp.Delete 
Next Shp 

End Sub 

Danh sách đầy đủ các loại hình dạng MSO. http://msdn.microsoft.com/en-us/library/office/aa432678(v=office.12).aspx

Ron de Bruin có một bộ sưu tập các đoạn mã có liên quan đến bất kỳ ai khác gặp phải câu hỏi này. http://www.rondebruin.nl/controlsobjectsworksheet.htm