1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

[RESOLVIDO] Graficos em Excel

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Março 12, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Alguem poderia me passar algum exemplo para gerar graficos em Excel.
  2. eriutoncharles

    eriutoncharles Membro Participativo

    Boa Tarde,

    Amigo dá uma olhada, ver se dá pra entender esta bagunça aqui ! rsrs

    Código:
    /* Grafico  */
    
    /*chWorkSheet:Range("Z6:BZ10"):Select().
    chExcelApplication:Selection:Style = "Currency".
    */
    
    /* create embedded chart using the data in the Worksheet */
    chWorksheetRange = chWorksheet:Range("A6:C" + STRING(vUltima_Linha - 1)). 
    
    chWorksheet:ChartObjects:Add(10,vLinha + 230,390,300):Activate. 
    /* 100 - qt menos mais perto da borda (x). 200 - Qt menos mais pra cima (Y). 400 - Largura. 250 - Altura */
     
    chExcelApplication:ActiveChart:ChartWizard(chWorksheetRange, 3, 1, 1, 1, 2, TRUE,
    "GRÁFICO DE VALORES x DATA", "Visualização de Movimento", Empresa.Razao).
    
    /*chExcelApplication:ActiveChart:Axes(2,1):TickLabels:Font:Size = 8.
    chExcelApplication:ActiveChart:Axes(1,1):HasMajorGridLines = true. /* Linhas de Grade */
    chExcelApplication:ActiveChart:Axes(1,1):TickLabels:Orientation = 90. /* texto na vertical */
    
    chExcelApplication:ActiveChart:ChartArea:Border:LineStyle = -4142.
    */
    
    chExcelApplication:ActiveChart:ChartArea:Fill:OneColorGradient(4,3,1).
    chExcelApplication:ActiveChart:ChartArea:Fill:ForeColor:SchemeColor = 14.
    chExcelApplication:ActiveChart:ChartArea:Border:LineStyle = -1.
    chExcelApplication:ActiveChart:PlotArea:Border:LineStyle = -4142.
    chExcelApplication:ActiveChart:PlotArea:Interior:ColorIndex = false.
    Poe isto dai no final de seu código, antes do release object chExcelApplication..... e troca ai os valores por suas variáveis!
    fabianofss curtiu isso.
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    E como eu coloco / escolho os dados que deverao constar no grafico?
  4. eriutoncharles

    eriutoncharles Membro Participativo

    /* create embedded chart using the data in the Worksheet */
    chWorksheetRange = chWorksheet:Range("A6:C" + STRING(vUltima_Linha - 1)).

    Aqui Abrangeria os dados que estariam da A6: até a C20 caso a variável vUltima_Linha fosse 21 por exemplo.
  5. mpdelphi

    mpdelphi Membro Participativo

    eu tenho um relatorio..onde eu precisava gerar varios graficos... e tabelas dinamicas...

    o que fiz foi criar um modelo em excel.. com as tabelas dinamicas e os graficos...

    dai so abro o modelo e preencho com os dados e mando o excel atualizar... dai os valores do graficos e tabelas dinamicas se atualizam sozinhos...

    ficou show..beeeeeeeeeeeeeeeemm mais pratico e menos horas para desenvolver...

    quando o cliente quer um grafico novo ou tabela dinamica nova... ele alterar o modelo e salva....
    Alexandre curtiu isso.
  6. eriutoncharles

    eriutoncharles Membro Participativo

    Olá, boa tarde!

    É cada um tem sua forma de resolver o problema. Gerar Matrizes pré-estabelecidadas é uma boa saida pra formulários dentre outras necessidades.

    Mas só pra saber, este código ali em cima funciona legal, gera um gráfico a partir da seleção, via programação.
    Mas resolvido seu problema, isto é que importa!
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página