Mam arkusz programu Excel, w którym makro powiązane z przyciskiem rysuje dynamiczne kształty w oparciu o parametry wejściowe użytkownika w arkuszu.

Próbuję napisać nowe makro w celu wyczyszczenia arkusza lub innymi słowy usunąć wszystkie kształty w arkuszu.

Próbowałem użyć poniższego kodu i rzeczywiście usuwa on wszystkie kształty, ale kontrolki formularzy przycisków również zostają usunięte. Czy istnieje łatwy sposób na pozbycie się kształtów (strzałek, pól tekstowych, elips itp.) W arkuszu? Wielkie dzięki!!!

Sub DeleteAllShapes()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
    Shp.Delete
Next Shp

End Sub