none
Como Criar um Gráfico em VBA Excel? RRS feed

  • Pergunta

  • Ola Pessoal.

    Como criar um gráfico em VBA, com as referencias as células vindo de variável?

    Meu código exemplo.

    Sub GraficoRelativo()
    ' 
    ' Soma os segundos na (N7+N11+N13)/10  Coloca o resultado na Variavel Integer M_times (mesmo nome do APP) Usa o valor desta variavel como a quantidade de linhas que o grafico deve considerar como Range.
    '
        Sheets(3).Select
        Dim M_times As Integer, UltLin As Integer
        
        M_times = (Range("N7") + Range("N11") + Range("N13")) / 10
        [N1].Value = M_times
        UltLin = M_times + 5
        [O1].Value = UltLin
        Sheets(2).Select 
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SetSourceData Source:=Range("生データ!$A$1:$S $UltLin")
        ActiveChart.SetSourceData Source:=Range("A5:A UltLin, B5:B UltLin, E5:E UltLin, H5:H UltLin, K5:K UltLin, N5:N UltLin, Q5:Q UltLin")
        Range("A8").Select
    End Sub

    Obrigado,

    silvio pontes


    silvio pontes

    sábado, 25 de fevereiro de 2012 09:48

Respostas

Todas as Respostas

  • vce deve concatenar as strings a suas variáveis

    Ex.:

    ActiveChart.SetSourceData Source:=Range("!$A$1:$S$" & UltLin)
    

    • Marcado como Resposta Silvio Pontes sábado, 17 de março de 2012 08:10
    sábado, 25 de fevereiro de 2012 17:45
  • Olá amigo Jhonatan, obrigado por emprestar o seu conhecimento, já é a 2a resposta.

    Eu tentei assim e funcionou também.

    LastLine =range("A" & rows.count).end(xlup).row
        ActiveChart.SetSourceData Source:=Range("A5:A" & LastLine &",  B5:B" & LastLine &",   E5:E" & LastLine &",   H5:H" & LastLine &",   K5:K" & LastLine &",   N5:N" & LastLine &",   Q5:Q" & LastLine )

    Tenho outra pergunta.

    Como criar gráfico de dispersão em VBA no Excel que tenha: 
    Titulo posicionado a esquerda mas acima do gráfico,
    Legendas posicionadas a direita mas acima do gráfico,
    Titulo no eixo X centralizado na horizontal e abaixo do gráfico,
    Titulo no eixo Y centralizado na vertical a esquerda do gráfico,
    Ancorar o grafico na célula "A40",
    e tenha 1200 px de comprimento e 300 px de altura?


    silvio pontes

    domingo, 26 de fevereiro de 2012 09:07