Joocta, talvez para ficar mais "entendivel" (espero)
Primeiro: Crie manualmente (em uma planilha) um gráfico (ou mais), da maneira que voce deseja.
Segundo: Em um novo formulário (ou em algum existente se quiser) insira um objeto Image , para mostrar o grafico no formulario deve utilizar o codigo abaixo(supondo que seja somente um grafico):
Private Sub MostraGraf()
Set CurrentChart = Sheets("Gráficos").ChartObjects(1).Chart
'aqui define a largura e altura do grafico
CurrentChart.Parent.Width = 400
CurrentChart.Parent.Height = 200
' Aqui define o caminho e nome do arquivo da imagem do grafico para salvar
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
'Aqui salva o grafico como uma imagem
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Aqui carrega a imagem no grafico
Image1.Picture = LoadPicture(Fname)
End Sub
Como pode notar, o grafico não foi gerado por vba.
Para atualiza-lo:
Ao "filtrar" os dados no formulario (creio que seja o Relatorio), então "exportar" os dados(que estão nalistview) necessarios a composição do grafico, para a area onde está definido as series do grafico na planilha.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/02/2013 4:59 pm