• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Racir

Gráfico no excel

2 mensagens neste tópico

Estava a tentar desenhar um gráfico em função de dados de uma outra folha e dá o erro assinalado. Não percebo porquê. Podem dar-me uma ajuda?

Private Sub Grafico1_Click()

Dim Nitens, Nalunos As Integer

Grafico1.BackColor = QBColor(12)

Nitens = Range("AE1").Value

Nalunos = Range("E5").Value

ActiveSheet.Shapes.AddChart.Select

    ActiveChart.ChartType = xl3DColumnClustered

    ActiveChart.SetSourceData Source:=Sheets("Teste 1").Range(Cells(10, 5 + Nitens), Cells(9 + Nalunos, 5 + Nitens))

    ActiveChart.SeriesCollection(1).XValues = "='Teste 1'!$C$10:$C$15"

    ActiveChart.SeriesCollection(1).Select

    ActiveChart.SeriesCollection(1).ApplyDataLabels

    ActiveSheet.ChartObjects("Gráfico 3").Activate

   

    ActiveSheet.ChartObjects("Gráfico 3").Activate

    ActiveChart.SeriesCollection(1).Select

    ActiveSheet.ChartObjects("Gráfico 3").Activate

End Sub

Dá erro em ActiveChart.SetSourceData Source:=Sheets("Teste 1").Range(Cells(10, 5 + Nitens), Cells(9 + Nalunos, 5 + Nitens))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora