Vitor Miagava

Tenho uma planilha que criei no Excel 2003, e no excel 2007 ela não roda algumas macros, e uma delas é que não consigo rodar o gráfico userform. Algém teria alguma outra solução, como o mschart, ou análisar meu código?? Quando mando chamar o form não aparece o gráfico na area da image, e sempre da o erro na palavra do "set current chart" Segue o código abaixo para quem quiser dar uma olhada ae: Código: Dim ChartNum As Integer Private Sub Image2_Click() fcoraco.Hide Call prinmenu End Sub Private Sub fcoraco_Initialize() ChartNum = 1 UpdateChart End Sub Private Sub UpdateChart() Set CurrentChart = Sheets("Graf-COR-ACO").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 300 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF" ' Show the chart fcoraco.Image1.Picture = LoadPicture(Fname)

Ajudou sim, muito obrigado!!

Boa tarde pessoal, Estou precisando alterar o tamanho das colunas de um listbox que eu tenho, alguém sabe como??? Att.

Michelle, testando aqui pelo Form deu certo,porém percebi que o intervalo de dados tem que estar apartir da célula a1. Então fica como eu tinha faldo com você, de qual maneira podemos colocar o listbox na planilha sem pelo Form e sim como objeto,e pegando o intervalo sem que esteja na célula a1. Estamos quase la! Origado!!

Eu não conheço o Rowsource não, ele pegaria o intervalo todo mesmo crescendo? De qualquer forma muito obrigado Michelle, ficarei no aguardo aqui e pesquisando ok? Muito obrigado !!

Então Michelle, o intervalo esta na graf, apartir da celula m12, eu associei ao modulo então usei a macro listgeral então executo a macro e da o erro, e depois tentei criar um form tambem colocando no Initialize, só que deu o mesmo erro.

Oi Michelle, já upei o arquivo, http://www.4shared.com/file/101467740/8dcc...version_2_.html Obrigado!

Bom dia Michelle, O nome do list box é mesmo sim, como posso estar te enviando a planilha para você? Muito obrigado!

Então, o intervalo deve crescer com o passar dos dias, o erro é o seguinte: Erro de compilação: Uso invalido da palavra me. Att.

Boa tarde pesoal, Estou com um problema similar, quero que o listbox liste os dados de um determinado intervalo de 5 colunas e que este intervalo possa crescer ou diminuir, tentei colocar o codigo da MICHELLE, porém não estou sabendo adapta-lo na minha planilha, se algém puder me ajudar. O intervalo de dados começa na coluna M1, e colei o script assim: Dim linha As Integer On Error GoTo ErrHandler linha = Plan11.Range("A65000").End(xlUp).Row i = 0 With ThisWorkbook.Worksheets("Graf-Geral") While linha <> 1 Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = Sheets("Graf-Geral").Cells(linha, 1) ListBox1.List(i, 1) = Sheets("Graf-Geral").Cells(linha, 2) ListBox1.List(i, 2) = Sheets("Graf-Geral").Cells(linha, 3) ListBox1.List(i, 3) = Sheets("Graf-Geral").Cells(linha, 4) ListBox1.List(i, 4) = Sheets("Graf-Geral").Cells(linha, 5) ListBox1.ListIndex = 0 linha = linha - 1 Wend End With ExitHere: Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHere End Sub Meu palpite é que erro esteja na configurações de de linhas e colunas. Att.