Para eliminar un slicer de una tabla dinámica utilizando VBA en Excel, primero debes identificar el nombre del slicer que deseas eliminar. Los slicers, o segmentadores, se pueden referenciar a través de la colección `Slicers` de un `SlicerCache`. Aquí te dejo un ejemplo de cómo podrías hacerlo:

Sub EliminarSlicer()
    Dim ws As Worksheet
    Dim slicerCache As SlicerCache
    Dim slicerName As String
    
    ' Establecer la hoja de trabajo donde está la tabla dinámica
    Set ws = ThisWorkbook.Worksheets("NombreDeLaHoja") ' Cambia "NombreDeLaHoja" por el nombre de tu hoja
    
    ' Nombre del slicer que deseas eliminar
    slicerName = "NombreDelSlicer" ' Cambia "NombreDelSlicer" por el nombre exacto de tu slicer
    
    ' Iterar sobre cada SlicerCache en el libro
    For Each slicerCache In ThisWorkbook.SlicerCaches
        ' Buscar el slicer dentro del SlicerCache
        On Error Resume Next
        slicerCache.Slicers(slicerName).Delete
        On Error GoTo 0
    Next slicerCache

    MsgBox "Slicer '" & slicerName & "' ha sido eliminado."
End Sub

Pasos a seguir:

• Cambia `»NombreDeLaHoja»` por el nombre de la hoja en la que se encuentra la tabla dinámica.
• Cambia `»NombreDelSlicer»` por el nombre del slicer que deseas eliminar.
• Ejecuta el macro.

Notas:

• Asegúrate de que el slicer que intentas eliminar existe, de lo contrario el código no tendrá efecto.
• Si existen múltiples slicers con el mismo nombre en diferentes hojas, debes ajustar el código para especificar adecuadamente de cuál hoja eliminar el slicer si es necesario.

Este script iterará sobre los `SlicerCaches` del libro y buscará específicamente el slicer por su nombre para eliminarlo. Al usar `On Error Resume Next`, el código continuará ejecutándose incluso si el slicer no se encuentra en un `SlicerCache` en particular.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto