none
Gerar Gráfico via VBA Excel - dados por linhas (produtos) x colunas (meses) RRS feed

  • Pergunta

  • Fala pessoal tudo bem??

    Estou com uma dificuldade preciso gerar um grafico com as informações de uma planilha porem não estou conseguindo capturar os dados da maneira que desejo.

    Abaixo o VBA que eu tentei escrever baseado em um video do YT.

    Sub Criando_Graficos2()
    
        Dim ws As Worksheet
        Dim ch As Chart
        Dim dt As Range
        Dim pt As Range
           
        
        Set ws = ActiveSheet
        Set dt = Rows(Cells(2, 3), Cells(2, 26))
        Set ch = ws.Shapes.AddChart2(Width:=350, Height:=200, b116").Left, b116").Top).Chart
        Set pt = Range(Cells(1, 3), Cells(1, 26))
        
    With ch
        
        .SetSourceData Source:=dt
        .ChartType = xlColumnClustered
        .ChartTitle.Text = Range("b2")
        .SetElement msoElementDataLabelOutSideEnd
        .SetElement msoElementPrimaryCategoryAxisTitleBelowAxis
        .Axes(xlCategory).AxisTitle.Text = "Comparativo 12 Meses"
        .SeriesCollection(1).XValues = pt
    
    End With
    
    End Sub

    Abaixo o gráfico como preciso:

    Segue gráfico que meu VBA está gerando:

    Como os dados estão em minha tabela:

    Alguém poderá me ajudar?


    sexta-feira, 18 de setembro de 2020 17:51