Přejít k hlavnímu obsahu
 

Jak odstranit všechna tlačítka nebo příkazová tlačítka v aplikaci Excel?

Autor: Siluvia Naposledy změněno: 2020-07-21

Tento článek hovoří o odebrání všech ovládacích tlačítek formuláře nebo příkazových tlačítek z aktivního listu v aplikaci Excel.

Odeberte všechna tlačítka včetně ovládacích tlačítek formuláře a příkazových tlačítek jejich výběrem všech
Odstraňte všechna tlačítka včetně ovládacích tlačítek formuláře a příkazových tlačítek pomocí kódu VBA
Odstraňte všechna ovládací tlačítka formuláře nebo příkazová tlačítka s kódem VBA


Odeberte všechna tlačítka včetně ovládacích tlačítek formuláře a příkazových tlačítek jejich výběrem všech

Chcete-li z aktivního listu odebrat všechna tlačítka (včetně ovládacích tlačítek formuláře a příkazových tlačítek), postupujte takto.

1. Kliknutím na ikonu povolte režim návrhu Vývojka > Režim návrhu. Viz snímek obrazovky:

2. Vyberte jedno z příkazových tlačítek a stiskněte Ctrl + A klávesy pro výběr všech tlačítek v aktuálním listu.

3. zmáčkni Vymazat klávesu pro smazání všech vybraných tlačítek.

Pozor: Pokud jsou v tomto listu další objekty, budou také vybrány.


Odstraňte všechna tlačítka včetně ovládacích tlačítek formuláře a příkazových tlačítek pomocí kódu VBA

Kromě toho můžete použít níže uvedený skript VBA a odstranit všechna tlačítka z aktuálního listu v aplikaci Excel.

1. Otevřete list obsahující tlačítka, která chcete odebrat, a poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA: Odeberte všechna tlačítka z aktivního listu

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. zmáčkni F5 klíč ke spuštění kódu. Poté jsou všechna tlačítka včetně ovládacích tlačítek formuláře a příkazových tlačítek okamžitě odstraněna z aktuálního listu.


Odstraňte všechna ovládací tlačítka formuláře nebo příkazová tlačítka s kódem VBA

Pokud chcete pouze odebrat všechna ovládací tlačítka formuláře nebo všechna příkazová tlačítka z aktivního listu. Chcete-li toho dosáhnout, můžete vyzkoušet níže uvedené kódy VBA.

1. Otevřete list obsahující tlačítka, která chcete odebrat, a poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA: Odeberte všechna ovládací tlačítka formuláře z aktivního listu

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

Kód VBA: Odeberte všechna příkazová tlačítka z aktivního listu

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. zmáčkni F5 klíč ke spuštění kódu.

Poté jsou všechna ovládací tlačítka formuláře nebo všechna příkazová tlačítka okamžitě odstraněna z aktuálního listu.


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!