Sådan fjernes alle knapper eller kommandoknapper i Excel?

Denne artikel forklarer, hvordan du fjerner alle formularkontrolknapper eller kommandoknapper fra det aktive ark i Excel.

Fjern alle knapper inklusive formkontrolknapper og kommandoknapper ved at vælge dem alle
Fjern alle knapper inklusive formkontrolknapper og kommandoknapper efter VBA-kode
Fjern alle formkontrolknapper eller kommandoknapper med VBA-kode

Fjern alle knapper inklusive formkontrolknapper og kommandoknapper ved at vælge dem alle

Gør som følger for at fjerne alle knapper (inklusive formkontrolknapper og kommandoknapper) fra det aktive regneark.

1. Aktivér designtilstand ved at klikke på Udvikler > Design Mode. Se skærmbillede:

2. Vælg en af ​​kommandoknapperne, og tryk på Ctrl + A for at vælge alle knapper i det aktuelle regneark.

3. Tryk på Slette for at slette alle valgte knapper.

Bemærk: Hvis der er andre objekter i dette regneark, vælges de også.

Fjern alle knapper inklusive formkontrolknapper og kommandoknapper efter VBA-kode

Desuden kan du anvende nedenstående VBA-script for at fjerne alle knapper fra det aktuelle regneark i Excel.

1. Åbn regnearket indeholder de knapper, du vil fjerne, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden i vinduet Kode.

VBA-kode: Fjern alle knapper fra det aktive ark

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. Tryk på F5 nøglen til at køre koden. Alle knapper, inklusive formularkontrolknapper og kommandoknapper, fjernes øjeblikkeligt fra det aktuelle regneark.

Fjern alle formkontrolknapper eller kommandoknapper med VBA-kode

Hvis du kun ønsker at fjerne alle formularkontrolknapper eller alle kommandoknapper fra det aktive ark, kan du prøve nedenstående VBA-koder for at opnå det.

1. Åbn regnearket indeholder de knapper, du vil fjerne, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden i vinduet Kode.

VBA-kode: Fjern alle formularkontrolknapper fra det aktive ark

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA-kode: Fjern alle kommandoknapper fra det aktive ark

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. Tryk på F5 nøgle for at køre koden.

Derefter fjernes alle formularkontrolknapper eller alle kommandoknapper fra det aktuelle regneark med det samme.

Relaterede artikler:

• Hvordan indsættes en tom ny række automatisk ved hjælp af Command Button i Excel?
• Hvordan bruges kommandoknappen til at gemme aktivt regneark som PDF-fil i Excel?
• Hvordan opdateres eller indsættes (aktuel) dato og tid med en kommandoknap i Excel?
• Hvordan bruges en kommandoknap til at ændre en bestemt celleværdi i Excel?