Application.ActiveChart (Excel)

Retorna um objeto Chart que representa o gráfico ativo seja um gráfico incorporado ou uma planilha de gráfico. Um gráfico inserido é considerado ativo quando está selecionado ou ativado. Quando nenhum gráfico está ativo, esta propriedade retorna Nothing.

Se você não especificar um qualificador de objeto, essa propriedade retornará o gráfico ativo da pasta de trabalho ativa.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveChart