Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Nome dos eixos xx e yy na criação de gráfico em VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
EngVieira



Mensagens : 8
Data de inscrição : 16/03/2013

MensagemAssunto: Nome dos eixos xx e yy na criação de gráfico em VBA   Sab Mar 16, 2013 10:26 pm

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

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Dom Mar 17, 2013 3:14 pm

Bom dia!!

Já tentou..
Código:
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 = [A1] '<--Alteração
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = [B1] '<--Alteração
.Axes(xlValue).MajorGridlines.Delete
.HasLegend = False

End With

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
EngVieira



Mensagens : 8
Data de inscrição : 16/03/2013

MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Dom Mar 17, 2013 5:33 pm

Bom dia!

Obrigado pela sua ajuda que me foi bastante útil. Porém, não existe uma maneira de, tal como nos valores que uso para o gráfico ao alterá-los o perfil do gráfico altera automaticamente? Enquanto que assim, alterando o conteudo das células A1 e B1 preciso de correr novamente a macro para aparecer as novas legendas.

Muito obrigado mais uma vez.

Cumprimentos,
Christophe Vieira
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Seg Mar 18, 2013 1:35 am

Boa noite!!

Neste caso você tem dois enventos Change e o Calculate

Exemplo
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A1:B1")) Is Nothing Then MinhaMacro
    'No lugar de MinhaMacro, coloque o nome de sua macro
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
EngVieira



Mensagens : 8
Data de inscrição : 16/03/2013

MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Seg Mar 18, 2013 8:41 pm

Muito obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Qua Mar 20, 2013 12:36 pm

Bom dia!!

Que bom que seu problema foi resolvido!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Nome dos eixos xx e yy na criação de gráfico em VBA   Hoje à(s) 10:14 pm

Voltar ao Topo Ir em baixo
 
Nome dos eixos xx e yy na criação de gráfico em VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Photoshop - Vídeo Aula][Criação de Styles - By Flash]
» Sérias duvidas em criações de temas!
» [JOGO] Criação
» Alguém sabe como criar um jogo tipo esse: ( nome no tópico! )
» [Engine] Escolher nome do Player

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: