GR?FICO COM MSCHART

GNCNET 18/04/2015 14:28:52
#445996

Criei um gráfico com o Mschart, mas não consigo exibí-lo corretamente no formato pizza.
Em formato barra, fica assim:


Em formato pizza, assim:


O CÓDIGO:
[ô]/-/ incia gráfico

Set DBY = OpenDatabase(caminho)
Set RSY = DBY.OpenRecordset([Ô]SELECT * FROM Tbl_grafico[Ô])

graf1.Refresh

RSY.MoveLast
RSY.MoveFirst

reg = RSY.RecordCount

graf1.ChartType = 14 [ô]1 BARRA, 14 PIZZA
graf1.ShowLegend = True [ô]não mostra legenda
graf1.Title = [Ô]Relação de Despesas[Ô] [ô]titulo do gráfico

graf1.columnCount = 1 [ô]uma série
graf1.RowCount = reg [ô]número sequencia de dados
graf1.Visible = True

While Not RSY.EOF()

For p = 1 To reg

graf1.Row = p
graf1.RowLabel = RSY([Ô]Despesa[Ô]) [ô]& [Ô] [Ô] & RSY([Ô]Valor[Ô])
[ô]graf1.ColumnLabel = RSY([Ô]Despesa[Ô]) & [Ô] [Ô] & RSY([Ô]Valor[Ô])
graf1.data = -(RSY([Ô]Valor[Ô]))

RSY.MoveNext

Next

Wend

DBY.Close

[ô]\-\

Grato,
Gardel