如何删除Excel中的所有按钮或命令按钮？

本文介绍了如何从Excel的当前工作表中删除所有窗体控件按钮或命令按钮。

通过全选删除所有按钮，包括窗体控件按钮和命令按钮
通过VBA代码删除所有按钮，包括窗体控件按钮和命令按钮
使用VBA代码删除所有窗体控件按钮或命令按钮

通过全选删除所有按钮，包括窗体控件按钮和命令按钮

请按照以下步骤操作以从当前工作表中删除所有按钮（包括窗体控件按钮和命令按钮）。

1. 单击“开发工具”选项卡下的“设计模式”以启用设计模式。参见截图：

2. 选择其中一个命令按钮并按 Ctrl + A 键以选择当前工作表中的所有按钮。

3. 按 Delete 键删除所有选定的按钮。

备注：如果此工作表中有其他对象，它们也会被选中。

通过VBA代码删除所有按钮，包括窗体控件按钮和命令按钮

此外，您可以应用以下VBA脚本来删除Excel当前工作表中的所有按钮。

1. 打开包含要删除按钮的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，单击“插入”>“模块”，然后将以下VBA代码复制到代码窗口中。

VBA代码：从当前工作表中删除所有按钮

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

3. 按 F5 键运行代码。所有按钮，包括窗体控件按钮和命令按钮，都会立即从当前工作表中删除。

使用VBA代码删除所有窗体控件按钮或命令按钮

如果您只想从当前工作表中删除所有窗体控件按钮或所有命令按钮，可以尝试以下VBA代码来实现。

1. 打开包含要删除按钮的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，单击“插入”>“模块”，然后将以下VBA代码复制到代码窗口中。

VBA代码：从当前工作表中删除所有窗体控件按钮

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA代码：从当前工作表中删除所有命令按钮

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

3. 按 F5 键运行代码。

随后，所有窗体控件按钮或所有命令按钮会立即从当前工作表中删除。

相关文章：

• 如何在Excel中通过命令按钮自动插入空白新行？
• 如何在Excel中使用命令按钮将当前工作表保存为PDF文件？
• 如何在Excel中通过命令按钮更新或插入（当前）日期和时间？
• 如何在Excel中使用命令按钮更改指定单元格的值？