Automatización de gráficos

• AddChart2 crea la forma del gráfico en sí — Style:=201 selecciona un estilo visual incorporado, XlChartType:=xlColumnClustered elige un gráfico de columnas estándar, y Left/Top/Width/Height lo posicionan y dimensionan en la hoja en puntos, la misma unidad que Excel utiliza internamente para la colocación de formas;
• AddChart2 en realidad devuelve un objeto Chart, no el contenedor ChartObject que lo rodea — el .Chart.Parent al final de esa línea es lo que vuelve al contenedor, que es el tipo con el que se declara chartObj; este detalle es fácil de olvidar y vale la pena copiarlo exactamente;
• SetSourceData es lo que indica a la forma de gráfico, que de otro modo estaría vacía, qué datos graficar — apuntar a tbl.ListColumns("Profit").Range significa que grafica la columna Profit en todas las filas visibles de la tabla;
• HasTitle = True debe establecerse antes de asignar ChartTitle.Text — intentar establecer el texto del título en un gráfico que aún no tiene título activado fallará.

1. Ejecutar BuildProfitChart

• Copiar el Sub exactamente como se muestra en el capítulo y ejecutarlo — no se necesitan cambios para esta parte.
• Debería aparecer un gráfico en la hoja Reports que muestra la utilidad para cada fila actualmente visible en la tabla.

2. Colorear las barras y quitar la leyenda

• Ambas propiedades pertenecen al objeto gráfico, no a la hoja de cálculo — chartObj.Chart es el punto de entrada, igual que en el ejemplo de formato del capítulo.
• El color de las barras se encuentra en SeriesCollection(1), ya que solo se está graficando una serie de datos (Profit) — .Format.Fill.ForeColor.RGB es la propiedad específica a establecer.
• Quitar la leyenda es una sola propiedad booleana (HasLegend), separada de la línea de color de relleno.

3. Filtrar y volver a ejecutar SetSourceData

• Aplicar un AutoFilter en Month (Field:=1) restringido a "January" — la misma técnica de la sección 4.2.
• Luego llamar a SetSourceData nuevamente con la misma expresión tbl.ListColumns("Profit").Range de BuildProfitChart — no es necesario cambiar nada de esa línea.
• Observar cuidadosamente lo que sucede con el gráfico después: ¿se reduce solo a las cinco regiones de January, o sigue mostrando las quince filas incluyendo las que AutoFilter acaba de ocultar? Esa observación es el verdadero objetivo de esta tarea, no solo ejecutar el código.

Option Explicit

' Point 1 — run this exactly as shown in the chapter
Sub BuildProfitChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")

    Set chartObj = ws.Shapes.AddChart2(Style:=201, _
        XlChartType:=xlColumnClustered, _
        Left:=400, Top:=20, Width:=400, Height:=250).Chart.Parent

    With chartObj.Chart
        .SetSourceData Source:=tbl.ListColumns("Profit").Range
        .HasTitle = True
        .ChartTitle.Text = "Profit by Region"
    End With
End Sub

' Point 2 — color the bars and remove the legend
Sub FormatProfitChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set chartObj = ws.ChartObjects(1)

    With chartObj.Chart
        .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(24, 106, 60)
        .HasLegend = False
    End With
End Sub

' Point 3 — filter to January, then re-point the chart at the same range
Sub FilterJanuaryAndRefreshChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    Set chartObj = ws.ChartObjects(1)

    tbl.Range.AutoFilter Field:=1, Criteria1:="January"

    chartObj.Chart.SetSourceData Source:=tbl.ListColumns("Profit").Range
End Sub

Ejecutar estos en orden: BuildProfitChart, luego FormatProfitChart, luego FilterJanuaryAndRefreshChart. Para el punto 3 en particular — prestar atención a lo que realmente sucede. Los gráficos de Excel generalmente sí respetan un AutoFilter activo, ocultando automáticamente las barras de las filas filtradas, incluso sin volver a ejecutar SetSourceData. Volver a ejecutarlo aquí simplemente confirma que el gráfico sigue apuntando correctamente a toda la columna — el filtro es lo que realiza el ocultamiento visual, no la llamada a SetSourceData. Vale la pena probar con el filtro activado y desactivado para ver la diferencia.