Crear un gráfico dinámico a partir de una tabla dinámica usando VBA en Excel puede ser un proceso automatizado que ahorra tiempo si se hace con frecuencia. A continuación te guiaré a través de los pasos para lograr esto. Voy a asumir que ya tienes una tabla dinámica creada en una hoja de Excel.

• Abre el Editor de VBA:
• Presiona `ALT + F11` para abrir el Editor de VBA.
• Inserta un Módulo:
• Ve a `Insertar` > `Módulo` para crear un nuevo módulo donde escribirás tu código VBA.
• Escribe el Código VBA:

Aquí tienes un ejemplo de código para crear un gráfico dinámico:

   Sub CrearGraficoDinamico()
       Dim ws As Worksheet
       Dim pt As PivotTable
       Dim grf As ChartObject
     
       ' Define la hoja que contiene la tabla dinámica
       Set ws = ThisWorkbook.Sheets("NombreDeTuHoja")
       
       ' Define la tabla dinámica
       Set pt = ws.PivotTables("NombreDeTuTablaDinamica")
       
       ' Crea el gráfico
       Set grf = ws.ChartObjects.Add(Left:=300, Width:=500, Top:=50, Height:=400)
       
       With grf
           .Chart.SetSourceData Source:=pt.TableRange1
           .Chart.ChartType = xlColumnClustered  ' Cambia el tipo de gráfico como desees
       End With
       
       MsgBox "El gráfico dinámico ha sido creado."
   End Sub

Notas:

• Ejecuta el Código:
• Cierra el Editor de VBA y regresa a Excel.
• Presiona `ALT + F8`, selecciona `CrearGraficoDinamico` de la lista y haz clic en `Ejecutar`.

Esto debería crear un gráfico basado en los datos de tu tabla dinámica. Puedes ajustar el código para personalizar el gráfico (colores, etiquetas, etc.) según tus necesidades.

Si necesitas ayuda con más ajustes o detalles específicos, puedes proporcionarlos y te ayudaré a refinar el código.

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