'点工作表标签,右键,查看代码,复制下面的代码进去,按F5运行即可
Public Sub del()
Dim sht As Worksheet, p As Shape, ar(), n%
For Each sht In Worksheets
For Each p In sht.Shapes
If p.Type = 1 Then n = n + 1: ReDim Preserve ar(1 To n): ar(n) = p.Name
Next p
If n > 0 Then sht.Shapes.Range(ar).Delete
n = 0
Next sht
End Sub
追问
还是不行,
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/342ac65c10385343cc949ba89113b07ecb8088db?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
追答我测试了,没问题呀,发表格给我: [email protected]