Boa tarde, Felipe.
No início, estava a usar um gráfico feito na folha, cujo range se deveria alterar quando os dados passassem para a folha4.
Acontece que, o gráfico só vai aproveitar os 12 primeiros registos gravados, pois quando passam p/ a folha já foram previamente ordenados por ordem decrescente (> para <).
Com o gráfico concebido na folha, cada vez que gravo dados novos, que eliminam os anteriores, o gráfico também é eliminado. O gráfico feito na folha utiliza um range A1:B12 e não deveria alterar esse range quando se gravam novos dados.
Mas, em determinados dados, apenas são copiados para a folh4, 3 linhas de dados o que deveria obrigar o gráfico a reformular o range. Só que me parece que isso não acontece. Quando gravo 20 linhas de dados e depois gravo 11 linhas, o gráfico apenas se constroi
com os dois primeiros dados, Range A1:B2.
Por esse motivo, pensei em construir um gráfico novo, do zero, do tipo xl3DPieExploded cada vez que preciso dele, apagando-o depois ao sair do formulário. Depois de criado na folha, será exportado para uma pasta no formato "JPG"
ou "GIF" para ser exibido no formulário "Userform1_GRAFICO".
Tentei algumas rotinas de criação de gráficos circulares, mas todas têm falhas e como os meus conhecimentos de VBA, são quase nulos, não consigo ultrapassar esses erros.
Esquecendo as rotinas enviadas antes, esta é a rotina que tento adaptar para a criação do gráfico, mas dá-me erro na linha:
.SeriesCollection(1).XValues = ActiveSheet.Range("A1", "B & Ulinha")
Run-time error '1004':
Application-defined or object-defined error
A área do gráfico é criada na folha, mas não cria o gráfico propriamente dito. Será um erro de atribuição do Range?
Private Sub UserForm_Initialize()
'Criando Gráfico:
Dim chtOb As ChartObject
Dim GraficoCirc As ChartObject
Dim wkst As Worksheet
Dim DELline As Long, Ulinha As Variant
Set wkst = ThisWorkbook.Sheets("Folha4")
DELline = wkst.Range("A" & Rows.Count).End(xlUp).Row
Set chtOb = wkst.ChartObjects.Add(170, 20, 450, 270)
For Ulinha = 1 To DELline
If Ulinha <= 12 Then
With chtOb.Chart
.ChartType = xl3DPieExploded
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = ActiveSheet.Range("A1", "B & Ulinha")
.SeriesCollection(1).Values = ActiveSheet.Range("A1", "B & Ulinha")
.SeriesCollection(1).Name = ActiveSheet.Range("12 MOTIVOS MAIS FREQUENTES")
End With
End If
Next
'Exportar gráfico
Dim ArqImagem As String
Set GraficoCirc = wks.ChartObjects.Chart
GraficoCirc.Parent.Width = UserForm1_GRAFICO.Image1.Width
GraficoCirc.Parent.Height = UserForm1_GRAFICO.Image1.Height
On Error Resume Next
ArqImagem = ThisWorkbook.Path & "\GraficoCirc.jpg"
GraficoCirc.Export Filename:=ArqImagem, filtername:="JPG"
'carrega grágico
Image1.Picture = LoadPicture(ArqImagem)
End Sub
Cumprimentos
M_A_L
Do Control Listbox para a Folha de Cálculo.
