Kako odstraniti vse gumbe ali ukazne gumbe v Excelu?

Ta članek govori o odstranjevanju vseh gumbov za nadzor obrazcev ali ukaznih gumbov z aktivnega lista v Excelu.

Odstranite vse gumbe, vključno z gumbi za nadzor obrazcev in ukaznimi gumbi, tako da jih izberete
Odstranite vse gumbe, vključno z gumbi za nadzor obrazca in ukaznimi gumbi s kodo VBA
Odstranite vse gumbe za nadzor obrazca ali ukazne gumbe s kodo VBA

Odstranite vse gumbe, vključno z gumbi za nadzor obrazcev in ukaznimi gumbi, tako da jih izberete

Naredite naslednje, da odstranite vse gumbe (vključno z gumbi za nadzor obrazca in ukaznimi gumbi) z aktivnega delovnega lista.

1. Omogočite način oblikovanja s klikom Razvojni > Način oblikovanja. Oglejte si posnetek zaslona:

2. Izberite enega od ukaznih gumbov in pritisnite Ctrl + A tipke za izbiro vseh gumbov na trenutnem delovnem listu.

3. Pritisnite Brisanje tipko za brisanje vseh izbranih gumbov.

Opombe: Če so na tem delovnem listu še drugi predmeti, bodo izbrani tudi oni.

Odstranite vse gumbe, vključno z gumbi za nadzor obrazca in ukaznimi gumbi s kodo VBA

Poleg tega lahko uporabite spodnji skript VBA, da odstranite vse gumbe s trenutnega delovnega lista v Excelu.

1. Odprite delovni list z gumbi, ki jih želite odstraniti, in pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte pod kodo VBA v okno Code.

Koda VBA: Odstranite vse gumbe z aktivnega lista

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. Pritisnite F5 tipko za zagon kode. Nato so vsi gumbi, vključno z gumbi za nadzor obrazcev in ukaznimi gumbi, takoj odstranjeni s trenutnega delovnega lista.

Odstranite vse gumbe za nadzor obrazca ali ukazne gumbe s kodo VBA

Če želite samo odstraniti vse gumbe za nadzor obrazca ali vse ukazne gumbe z aktivnega lista. Lahko poskusite s spodnjimi kodami VBA, da to dosežete.

1. Odprite delovni list z gumbi, ki jih želite odstraniti, in pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte pod kodo VBA v okno Code.

Koda VBA: odstranite vse gumbe za nadzor obrazca z aktivnega lista

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

Koda VBA: odstranite vse ukazne gumbe z aktivnega lista

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. Pritisnite F5 tipko za zagon kode.

Nato so vsi gumbi za nadzor obrazca ali vsi gumbi za ukaze takoj odstranjeni s trenutnega delovnega lista.

Sorodni članki:

• Kako samodejno vstaviti prazno novo vrstico z gumbom za ukaz v Excelu?
• Kako uporabiti ukazni gumb za shranjevanje aktivnega delovnega lista kot datoteke PDF v Excelu?
• Kako posodobiti ali vstaviti (trenutni) datum in čas z ukaznim gumbom v Excelu?
• Kako uporabiti ukazni gumb za spremembo določene vrednosti celice v Excelu?