GERAR UM GRAFICO EXPORTANDO DIRETO PRA EXCEL

USUARIO.EXCLUIDOS 23/08/2006 10:13:21
#166703
Pessoal, tenho esse evento para Gerar um grafico a partir de alguns valores e joga-lo direto em uma planilha do excel, mas o grafico sai somente em barras, tem alguma maneira de gerar o grafico em outro estilo, por exemplo, direto em pizza. Teria que fazer uma mudança no Codigo, mas não sei em que parte é setado o tipo de grafico, se sera em barras, ou em pizza, ou em linhas.

 Private Sub Print_Click()
Dim xls As Object
Dim xBook As Object
Dim xSheet As Object
Dim xChart As Object
Dim Lin As Integer
Dim Col As Integer

Const NumCols = 6
Const NumLins = 2

ReDim xTemp(1 To NumLins, 1 To NumCols)

Set xls = CreateObject("Excel.application")
Set xBook = xls.Workbooks.Add
Set xSheet = xBook.Worksheets.Item(1)

For Lin = 1 To NumLins
For Col = 1 To NumCols
xTemp(Lin, Col) = txt.Text
txt.Text = ""
Next Col
Next Lin

xSheet.Range("A1").Resize(NumLins, NumCols).Value = xTemp

Set xChart = xSheet.ChartObjects.Add(40, 60, 300, 300).Chart
xChart.SetSourceData Source:=xSheet.Range("A1").Resize(NumLins, NumCols)

xls.Visible = True

xls.UserControl = True

End Sub


Obrigado,
USUARIO.EXCLUIDOS 23/08/2006 10:21:31
#166708
vc não pode informar o tipo de gráfico que vc está gerando?
USUARIO.EXCLUIDOS 23/08/2006 10:30:47
#166715
Bem, eu tenho um exemplo em excel aqui no site no qual gero gráficos, dá uma olhada nele, é bem grande o código, pois faz várias outras coisas, porém esta todo comentada, procure a parte que te interessa, lá com certeza você encontrará o que procura...

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=3324

Espero que te ajude.
USUARIO.EXCLUIDOS 23/08/2006 10:50:25
#166736
Bacana...
Encontrei a parte que monta o grafico, intendi so algumas partes pois estou começando agora no VB.
Consigo identificar direitinho como ele cria o grafico, mas nada sobre o tipo do grafico que ele vai gerar.

     'cria o gráfico da planilha acima

Range("a" & linha - 1, "H" & i - 1).Select

Set graf = oExcel.Charts.Add
graf.HasDataTable = True
graf.HasTitle = True
graf.ChartTitle.Caption = "Gráfico de Leads por Fabricante Geral"
graf.HasLegend = False
graf.ChartTitle.Shadow = True
graf.ChartArea.Font.Size = 8
graf.ChartArea.Interior.Color = &HC0FFFF
graf.ChartTitle.Font.Bold = True
graf.ChartTitle.Font.Size = 12
graf.DataTable.Font.Size = 7
graf.Name = "Leads Pro Fabricante Geral"

rec_fab.Close
rec_status.Close

USUARIO.EXCLUIDOS 23/08/2006 11:04:10
#166743
Acrescente Graph.XXX não lembro a propriedade de cabeça, mas sei que gero gráfico de barras e tem um gráfico de pizza se não me engano, dࢠuma vasculhada maior que você irá encontrar...

Tente localizar pizza dentro do código...

Sei que tem no código, só tem de vasculhar.




Tópico encerrado , respostas não são mais permitidas