Notifications
Clear all

Usando dados de planilhas diderentes para gerar gráfico

2 Posts
2 Usuários
0 Reactions
1,000 Visualizações
(@billo)
Posts: 5
Active Member
Topic starter
 

Boa tarde senhores
Estou fazendo um programa para análise tarifária, eu preciso de dados de 12 planilhas diferentes, cada planilha dessas tem a mesma formatação de colunas, apenas tendo mais ou menos linhas.
Ex. eu preciso gerar um gráfico para cada uma dessas 12 planilhas (12 meses) e mostrar os gráficos automaticamente no meu userform quando ele abre-se
Gostaria de saber como usar os dados dessas 12 planilhas sem que elas estivessem abertas ou pelo menos que se necessário abra-se as planilhas, use os dados para gerar o gráfico e mostrar no userform e feche-as automaticamente.
Vou dar um exemplo de como os dados estão disposto em casa uma dessas 12 planilhas:
Gerar um gráfico de B:10 até C2858, o que muda nas outras é apenas o número de linhas.

Consegui fazer isso para uma planilha, criei uma macro onde quando clico no botão ele abre a planilha que eu quero, gera o gráfico e mostra em uma multipage do userform, estou usando o seguinte código:

Private Sub MultiPage2_Change()

Windows("memoriademassa.xlsx").Activate ' ativando um arquivo excel
Set CurrentChart = Sheets("10897+FTOPBLMD").ChartObjects(1).Chart 'selecionando que é o objeto que está na "nome da planilha/ neste caso é 10897+FTOPBLMD"
CurrentChart.Parent.Width = 900
CurrentChart.Parent.Height = 400

'converter objeto de gráfico em imagem gif

nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"

' mostrar grafico como imagem no objeto

Image1.Picture = LoadPicture(nome)
End Sub

Tenho duvida também se o gráfico está sendo gerado de forma correta, pois quero que o gráfico seja gerado automaticamente sem precisar faze-lo no excel antes.

Não sei se consegui explicar de forma clara, qualquer dúvida estou a disposição.
Obrigado desde já.

Atenciosamente
Bruno Fiorenza

 
Postado : 09/09/2015 12:51 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Faz o grafico granvando a macro e depois edita se for o caso limpando o "lixo" que gravador insere no codigo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/09/2015 4:09 pm