O que eu precisava era incluir uma série em um gráfico que já foi gerado (por uma outra macro) o problema é que o número do gráfico muda sempre que outro é gerado, e não sei como criar um comando para "achar" o gráfico onde deve ser inserido uma nova série!
Estou usando o seguinte código:
If Sheets("Planilha Dinâmica").Range("B5").Value = "DGT" Then
Dim n As Long
ActiveSheet.ChartObjects(Gráfico 9).Activate (Essa linha é que mora o problema... essa identificação do grafico não pode ser fixada, se eu gerar outro grafico dai o comando não encontra mais ele!)
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=Diretoria!$F$1"
ActiveChart.SeriesCollection(3).Values = "=Diretoria!$F$2:$F$4"
ActiveChart.SeriesCollection(3).XValues = "=Diretoria!$A$2:$A$4"
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).ChartType = xlColumnClustered
End If
Então pessoal alguma dica, alternativa ou solução para esta questão?
Vlw pela atenção!!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 26/04/2012 9:38 am