none
Coleção charts RRS feed

Respostas

  • 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
    quarta-feira, 1 de setembro de 2010 22:24

Todas as Respostas

  • 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
    quarta-feira, 1 de setembro de 2010 22:24
  • 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.

    quinta-feira, 2 de setembro de 2010 11:41