Jump to content
Fórum Script Brasil

Vitor Miagava

Membros
  • Content Count

    10
  • Joined

  • Last visited

Posts posted by Vitor Miagava

  1. 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)

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

  3. 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.

×
×
  • Create New...