Application.ActiveChart (Excel)

Devuelve un objeto Chart que representa el gráfico activo (ya sea un gráfico incrustado o una hoja de gráficos).

Si no se especifica un calificador de objeto, la propiedad devuelve el gráfico activo del libro activo.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveChart