请教各位大神，如何用VBA删除所有 表单控件？？？

poongsan

请教各位大神，如何用VBA删除所有  表单控件？？？

图片里所有的控件

找到以下代码，可是都不合适。请问该怎么改？？？谢谢！

从活动工作表中删除所有表单控制按钮
Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

从活动工作表中删除所有按钮
Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub


从活动工作表中删除所有命令按钮

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub


northwolves版主 的代码如下，但是把所有的包括插入的图形都删除了，所以该怎么写呢？？？
http://club.excelhome.net/forum.php?mod=viewthread&tid=359191

Sub Macro2()
ActiveSheet.DrawingObjects.Delete
End Sub

liulang0808

    For Each shp In ActiveSheet.Shapes
        If shp.Type = 8 Then shp.Delete
    Next
看看这个是否可行吧

poongsan

liulang0808 发表于 2020-1-19 18:12
For Each shp In ActiveSheet.Shapes
        If shp.Type = 8 Then shp.Delete
    Next

谢谢，太感谢了，很好用，如果整个工作簿呢，代码要改成怎样？

laiwatch

poongsan 发表于 2020-1-20 13:49
谢谢，太感谢了，很好用，如果整个工作簿呢，代码要改成怎样？

加一个 for i=1 to Worksheets.Count 的循环

poongsan

laiwatch 发表于 2020-1-20 13:54
加一个 for i=1 to Worksheets.Count 的循环

怎么加？？谢谢

poongsan

Set sh = Worksheets
Dim tbx As Shape
For Each sh In Worksheets
For Each shp In sh.Shapes
        If shp.Type = 8 Then shp.Delete
    Next
Next


我想这样可以了吧，总觉得哪里不太对

chxw68

没什么大错，小改了一下。

1. Sub test()
   
2.   Dim sh As Worksheet
   
3.   Dim shp As Shape
   
4.   For Each sh In Worksheets
   
5.     For Each shp In sh.Shapes
   
6.       If shp.Type = 8 Then
   
7.         shp.Delete
   
8.       End If
   
9.     Next
   
10.   Next
    
11. End Sub

复制代码

poongsan

chxw68 发表于 2020-1-20 16:03
没什么大错，小改了一下。

谢谢，非常感谢你的帮忙和指教。