删除指定名称的控件

386026398

求助仅删除工作表内“流量修正”控件的vba。

山菊花

1. Sub DeleteControl()
   
2.     Dim ws As Worksheet, aKj As Shape
   
3.     Set ws = ThisWorkbook.Sheets("Sheet1") '将"Sheet1"更改为目标工作表名称
   
4.     For Each aKj In ws.Shapes
   
5.         If aKj.OLEFormat.Object.Caption = "流量修正" Then Exit For
   
6.     Next
   
7.     If aKj Is Nothing Then
   
8.         MsgBox "未找到该控件。", vbExclamation
   
9.     Else
   
10.         aKj.Delete
    
11.     End If
    
12. End Sub

复制代码

386026398

山菊花 发表于 2024-1-18 08:43

谢谢回复，完全能达到目标

386026398

山菊花 发表于 2024-1-18 08:43

再次求助。要求对指定某个宏名称的控件不删除，而其余控件删除。按照你的思路试了一下给全部删除了

山菊花

386026398 发表于 2024-2-1 07:50
再次求助。要求对指定某个宏名称的控件不删除，而其余控件删除。按照你的思路试了一下给全部删除了

要删除哪个？不删除哪个？看不懂。

386026398

山菊花 发表于 2024-2-1 08:40
要删除哪个？不删除哪个？看不懂。

仿照你写的vba里有个vba程序，保留宏名zidongsx的这个，结果还是全部删除了

山菊花

386026398 发表于 2024-2-1 09:27
仿照你写的vba里有个vba程序，保留宏名zidongsx的这个，结果还是全部删除了

看到代码了（我没有把自定义过程写在ThisWorkbook模块的习惯，刚才没看到），代码写错了，改为：
      If Not aKj.OLEFormat.Object.OnAction Like "*!" & vbmc Then aKj.Delete

386026398

山菊花 发表于 2024-2-1 09:43
看到代码了（我没有把自定义过程写在ThisWorkbook模块的习惯，刚才没看到），代码写错了，改为：
       ...

实现目标完全没问题，感谢