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