Olá a todos!
Atualmente estou a treinar subrotinas de VBA para me ambientar ao programa, pois futuramente poderei precisar.
A minha dúvida é a seguinte:
Criei a subrotina aqui demonstrada (objetivo-criar gráfico em vba) e ela corre perfeitamente. Agora queria saber como posso alterar os nomes das séries dos xx e dos yy (pus "x" e "y" respetivamente) indo buscar esses nomes que estão nas células A1 e B1 do excel? Para que, mais tarde, ao querer mudar o nome dos eixos seja necessário apenas mudar no excel e no gráfico altera automaticamente, não sendo necessário ir à subrotina alterar os nomes.
Obrigado pela atenção.
Christophe
Sub Gráfico()
Dim grafico As Chart
Dim xaxis As Range
Dim yaxis As Range
Set grafico = ActiveWorkbook.Charts.Add
Set grafico = grafico.Location(Where:=xlLocationAsObject, Name:="Folha1")
Set xaxis = Range("A2:A7")
Set yaxis = Range("B2:B7")
Dim ser As Series
Set ser = grafico.SeriesCollection.NewSeries
With ser
.Values = yaxis
.XValues = xaxis
End With
With grafico
.ChartType = xlXYScatter
.HasTitle = True
.ChartTitle.Text = "Gráfico_Teste"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "x"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "y"
.Axes(xlValue).MajorGridlines.Delete
.HasLegend = False
End With
End Sub