Coleção charts

Question

Como eu pego o numero de graficos (objeto chart) dentro de uma WorkSheet?

E também o número de worksheets?

Answer 1

Boa noite

Retornando a quantidade de charts nas planilhas,dentro de uma pasta de trabalho

Sub CountCharts()
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

Numa worksheet, só pode existir uma worksheet, vc deve estar querendo saber no Workbook, para isto use

ActiveWorkbook.sheets.count

Teste ai e qqer coisa fale.

Att

---

Bruno Silva Leite Office Developer

Answer 2

Bruno, deu certo muito obrigado. Estou usando este código em uma aplicação Lotus Domino, onde ela alimenta uma planilha e depois altera o título dos gráficos desta planilha.

 

 

TKS.