Gráfico de Dispersão

vguara
Membro
Membro
Status:
Mensagens: 1
Registro: 05 Abr 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Gráfico de Dispersão

Mensagem por vguara » 05 Abr 2010

Pessoal,

Gostaria de criar um gráfico de dispersão.
Mas todos os exemplos que eu acho mostram somente a organização de x e y.
O gráfico que eu quero criar é o seguinte, no x são as vendas, no y é nosso lucro e cada ponto deve representar 1 mês.
Exemplo: preciso de um ponto chamado fevereiro/2010 que mostre vendas em 10mi e lucro de 1mi (valores ficticios).
No excel consegui organizar normalmente os eixos x e y, mas não consigo nomear o ponto, o excel entede que todos os meses representam uma série só, mesmo eles estando em células diferentes.

Agradeço a ajuda.

Obrigado,

kramerica
Membro
Membro
Status:
Mensagens: 98
Registro: 18 Mai 2009
Karma: [7] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Gráfico de Dispersão

Mensagem por kramerica » 07 Abr 2010

Boa tarde vguara,

um tmepo atrás tive o mesmo problema que voce e achei uma solução que pode te ajudar.
Para ter o gráfico de dispersão como voce está querendo é necessário adicionar cada ponto como uma série. Ou seja, supondo que voce queira ver as informações das vendas x lucro no ano, serão criadas 12 séries. Desta forma, quando vc passar o cursos em cima do ponto, aparecerá o nome do mês e os valores de venda e lucro.

Caso voce tenha muitos "pontos" uma macro faz isso facilmente. No meu caso eu precisei adicionar 256 séries, logo, tive que trabalhar com a macro.

nao sei se vai mais complicar do que ajudar, mas, em todo caso, essa eh a macro que usei, caso tenha dificuldade me mande seu arquivo que posso ver como conseguir isso.

Código: Selecionar tudo
Sub CriaSeriesAno()
'Esta macro cria cada projeto como uma série no gráfico.

    OrdenaFaseAreaInvestimento
   

Dim i As Integer
For i = 8 To 245

    ActiveSheet.ChartObjects("Gráfico 54").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlBubble3DEffect
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i - 7).XValues = "=GRAF_BOLHA!R" & i & "C7"
    ActiveChart.SeriesCollection(i - 7).Values = "=GRAF_BOLHA!R" & i & "C6"
    ActiveChart.SeriesCollection(i - 7).Name = "=GRAF_BOLHA!R" & i & "C4"
    ActiveChart.SeriesCollection(i - 7).BubbleSizes = "=GRAF_BOLHA!R" & i & "C11"
    ActiveChart.ChartType = xlBubble3DEffect
    ActiveWindow.Visible = False
   
    ActiveSheet.ChartObjects("Gráfico 54").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
        HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
        ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
   
   
    ActiveChart.SeriesCollection(i - 7).DataLabels.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlTransparent
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Position = xlLabelPositionCenter
        .Orientation = xlHorizontal
    End With
Next
   
End Sub


e essa tb...

Código: Selecionar tudo
Sub OrdenaFaseAreaInvestimento()

    Range("B7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("E8"), Order1:=xlDescending, Key2:=Range("B8") _
        , Order2:=xlAscending, Key3:=Range("H8") _
        , Order3:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub


Espero que esteja ainda em tempo.

Abs.


Retornar para Excel

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 17 visitantes

PUBLICIDADE