excel - 从工作表中删除特定形状

Question

你好，我有一个 Excel 工作簿，其中包含一个 Excel 工作表，其中包含图像、形状、箭头和更多形状。工作表的结构如下所示。


在上图中，我圈出了所有要删除的文本框、箭头、椭圆形和形状。我编写了一个代码来删除正在检查文本框是否存在的文本框，如果发现删除它们。另一方面，如果不存在显示弹出该文本框，则不存在。代码如下。

    Sub resetall()
Dim ws As Worksheet
Dim arow As Shapes
Dim txtbox As TextBox
Set ws = ActiveSheet
If ws.TextBoxes.Count < 0 Then
MsgBox "No Text Box Exist."
Exit Sub
End If
ws.TextBoxes.Delete
MsgBox "Text Box has been deleted successfully."
End Sub

此代码工作正常，但我找不到箭头、椭圆形和圆形的代码。请检查我的代码并指导我。我尝试使用这些形状。库中的椭圆形引用，但无法成功。请指导我。谢谢你。

Answer 1

https://www.thespreadsheetguru.com/the-code-vault/vba-delete-all-shapes

Sub DeleteAllShapes()
'PURPOSE: Remove All Shape Objects From The Active Worksheet
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim shp As Shape

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

End Sub

(可选)在循环内为 msoShapeType 中的特定类型添加测试