Wie entferne ich alle Schaltflächen oder Befehlsschaltflächen in Excel?
In diesem Artikel wird das Entfernen aller Formularsteuerungsschaltflächen oder Befehlsschaltflächen aus dem aktiven Blatt in Excel behandelt.
Entfernen Sie alle Schaltflächen, einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen, indem Sie sie alle auswählen
Entfernen Sie alle Schaltflächen einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen nach VBA-Code
Entfernen Sie alle Formularsteuerungs- oder Befehlsschaltflächen mit VBA-Code
Entfernen Sie alle Schaltflächen, einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen, indem Sie sie alle auswählen
Gehen Sie wie folgt vor, um alle Schaltflächen (einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen) aus dem aktiven Arbeitsblatt zu entfernen.
1. Aktivieren Sie den Entwurfsmodus, indem Sie auf klicken Entwickler:in / Unternehmen > Entwurfsmodus. Siehe Screenshot:
2. Wählen Sie eine der Befehlsschaltflächen und drücken Sie die Taste Ctrl + A Tasten zum Auswählen aller Schaltflächen im aktuellen Arbeitsblatt.
3. Drücken Sie die Taste Löschen Taste zum Löschen aller ausgewählten Schaltflächen.
Note: Wenn dieses Arbeitsblatt andere Objekte enthält, werden diese ebenfalls ausgewählt.
Entfernen Sie alle Schaltflächen einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen nach VBA-Code
Außerdem können Sie das folgende VBA-Skript anwenden, um alle Schaltflächen aus dem aktuellen Arbeitsblatt in Excel zu entfernen.
1. Öffnen Sie das Arbeitsblatt mit den Schaltflächen, die Sie entfernen möchten, und drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie dann den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Entfernen Sie alle Schaltflächen aus dem aktiven Blatt
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. Drücken Sie die Taste F5 Taste zum Ausführen des Codes. Anschließend werden alle Schaltflächen, einschließlich Formularsteuerungsschaltflächen und Befehlsschaltflächen, sofort aus dem aktuellen Arbeitsblatt entfernt.
Entfernen Sie alle Formularsteuerungs- oder Befehlsschaltflächen mit VBA-Code
Wenn Sie nur alle Formularsteuerschaltflächen oder alle Befehlsschaltflächen vom aktiven Blatt entfernen möchten. Sie können die folgenden VBA-Codes ausprobieren, um dies zu erreichen.
1. Öffnen Sie das Arbeitsblatt mit den Schaltflächen, die Sie entfernen möchten, und drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie dann den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Alle Formularsteuerschaltflächen aus dem aktiven Blatt entfernen
Sub Clear_ButtonsActiveSheet()
ActiveSheet.Buttons.Delete
End Sub
VBA-Code: Alle Befehlsschaltflächen aus dem aktiven Blatt entfernen
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
Dann werden alle Formularsteuerschaltflächen oder alle Befehlsschaltflächen sofort aus dem aktuellen Arbeitsblatt entfernt.
In Verbindung stehende Artikel:
- Wie füge ich automatisch eine leere neue Zeile über die Befehlsschaltfläche in Excel ein?
- Wie verwende ich die Befehlsschaltfläche, um ein aktives Arbeitsblatt als PDF-Datei in Excel zu speichern?
- Wie aktualisiere oder füge ich (aktuelles) Datum und Uhrzeit über eine Befehlsschaltfläche in Excel ein?
- Wie verwende ich eine Befehlsschaltfläche, um einen bestimmten Zellenwert in Excel zu ändern?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!