GERAR UM GRAFICO EXPORTANDO DIRETO PRA EXCEL
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.
Obrigado,
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,
vc não pode informar o tipo de gráfico que vc está gerando?
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.
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=3324
Espero que te ajude.
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.
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
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.
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