[Gráfico no Ms Chart ou Userform]

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)

[Colunas do Listbox]

Ajudou sim, muito obrigado!!

[Colunas do Listbox]

Boa tarde pessoal,

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

Att.

[Como listar informações em listbox?]

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!!

[Como listar informações em listbox?]

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 !!

[Como listar informações em listbox?]

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.

[Como listar informações em listbox?]

Oi Michelle, já upei o arquivo,

http://www.4shared.com/file/101467740/8dcc...version_2_.html

Obrigado!

[Como listar informações em listbox?]

Bom dia Michelle,

O nome do list box é mesmo sim, como posso estar te enviando a planilha para você?

Muito obrigado!

[Como listar informações em listbox?]

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.

[Como listar informações em listbox?]

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.