Workbook.ActiveChart (Excel)
Devuelve un objeto Chart que representa el gráfico activo (ya sea un gráfico incrustado o una hoja de gráficos). Un gráfico incrustado se considera activo cuando está seleccionado o activado. Si no hay ningún gráfico activo, esta propiedad devuelve Nothing.
Si no se especifica un calificador de objeto, la propiedad devuelve el gráfico activo del libro activo.
Dim chrActiveChart As Chart
Set chrActiveChart = ActiveWorkbook.ActiveChart