Para ocultar o mostrar los encabezados de campo en una tabla dinámica usando VBA en Excel, necesitas ajustar las propiedades de `RowHeaderCaption`, `ColumnHeaderCaption`, `PageHeaderCaption`, y `DataLabel`. Aquí tienes un ejemplo de cómo hacerlo:

Sub MostrarOcultarEncabezados()
    Dim pvt As PivotTable
    Dim ws As Worksheet

    ' Establecer la hoja de cálculo que contiene la tabla dinámica
    Set ws = ThisWorkbook.Sheets("NombreDeTuHoja")

    ' Establecer la tabla dinámica en la que quieres trabajar
    Set pvt = ws.PivotTables("NombreDeTuTablaDinamica")

    ' Para ocultar encabezados de campo
    With pvt
        .RowAxisLayout xlTabularRow
        .ShowDrillIndicators = False
        .DisplayFieldCaptions = False
    End With

    ' Para mostrar encabezados de campo
    ' Con las siguientes líneas, puedes revertir para mostrarlos
    ' With pvt
    '     .DisplayFieldCaptions = True
    ' End With
End Sub

Importante:

• Asegúrate de reemplazar `»NombreDeTuHoja»` y `»NombreDeTuTablaDinamica»` con los nombres correspondientes en tu hoja de cálculo.
• `.DisplayFieldCaptions = False` oculta los encabezados de campo, mientras que `.DisplayFieldCaptions = True` los muestra.
• `.RowAxisLayout xlTabularRow` se utiliza para cambiar el diseño si es necesario.

Este script es una guía básica y puede que necesites adaptarlo dependiendo de la estructura de tus tablas dinámicas y cómo están configuradas en tu hoja de trabajo. También puede involucrar ajustes adicionales según los requerimientos específicos de tu proyecto.

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