Contando os Gráficos nas Planilhas de uma Pasta de Trabalho

Para retornar a quantidade de gráficos em uma pasta de trabalho utilize a seguinte rotina

Sub CountCharts()

'Desenvolvida por Bruno Leite
'bruno_silva_leite@yahoo.com.br

Dim Sht As Worksheet

 For Each Sht In ActiveWorkbook.Sheets
  MsgBox "Na Planilha " & Sht.Name & " Existem " & Sht.ChartObjects.Count & " gráficos !", vbInformation
 Next Sht
 
End Sub

Nos próximos tópicos mostrarei como utilizar esta mesma rotina para levar para uma apresentação powerpoint.

Até a próxima