Grafico da VBA

[Gianca53]

la macro che segue "dovrebbe" costruire un grafico su un foglio separato e quindi copiarlo in un altro foglio riducendone opportunamente le dimensioni.
Il problema è che non segue la logica che vorrei , ovvero : crea grafico1, copia, cancella grafico1 e resta predisposto per nuova importazione dei dati.
Nota, i dati vengono importati da un file CSV tramite macro di chiamata, in questa stessa macro ho inserito il Call Test.
Cosa mi succede? a volte il grafico 1 diventa grafico 2 etc e va tutto in palla, le due parti della macro non sono coordinate .

Sub Test() ' crea grafico
Dim LastRow As Long
Dim Rng1 As Range
Dim rng2 As Range
Dim ShName As String

With ActiveSheet ' qui seleziono ultima riga e range dati
LastRow = .Range("K" & .Rows.Count).End(xlUp).Row
Set Rng1 = .Range("K2:K" & LastRow & ", L1:L" & LastRow)
'Set rng2 = .Range("L2:L" & LastRow)
ShName = .Name
End With
Charts.Add
With ActiveChart
.ChartType = xlLine
.SetSourceData Source:=Rng1
With .SeriesCollection.NewSeries
'.Values = rng2
.AxisGroup = 2
End With
.Location Where:=xlLocationAsObject, Name:=ShName
End With ' fine macro di preparazione del grafico


'copia grafico1 a Storico_CSV
Sheets("Grafico1").Activate
ActiveSheet.Unprotect
ActiveChart.Legend.Select
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Sheets("Storico_CSV").Activate
Sheets("Storico_CSV").Unprotect
Range("A5").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Grafico1").Activate
ActiveSheet.Shapes("Grafcico1").ScaleWidth 0.9865924553, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Grafico1").ScaleHeight 0.9701706491, msoFalse, _
msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=12
ActiveSheet.ChartObjects("Grafico1").Activate
ActiveSheet.Shapes("Name").ScaleWidth 0.9833852544, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Name").ScaleHeight 0.7638077647, msoFalse, _
msoScaleFromTopLeft
'ActiveWindow.ScrollRow = 1
Sheets("Grafico1").Select
ActiveWindow.SelectedSheets.Delete
ActiveSheet.Protect
End Sub

Modifica .
Questa macro funziona bene su un grafico esistente (come struttura ed impostazione ) e lo aggiorna perfettamente .

Sub Test() ' crea grafico
Dim LastRow As Long
Dim Rng1 As Range
Dim rng2 As Range
Dim ShName As String

With ActiveSheet ' qui seleziono ultima riga e range dati
LastRow = .Range("K" & .Rows.Count).End(xlUp).Row
Set Rng1 = .Range("K2:K" & LastRow & ", L1:L" & LastRow)
'Set rng2 = .Range("L2:L" & LastRow)
ShName = .Name
End With
Range("A1").Select
End Sub

[Gianca53]

Questa macro sembra funzionare meglio , un avolta capito che l'origine è il foglio1 e la destinazione del grafico è il foglio5 :

Sub Test() ' crea grafico
Dim LastRow As Long
Dim Rng1 As Range
Dim rng2 As Range
Dim ShName As String

With ActiveSheet
LastRow = .Range("K" & .Rows.Count).End(xlUp).Row
Set Rng1 = .Range("K2:K" & LastRow & ", L1:L" & LastRow)
'Set rng2 = .Range("L2:L" & LastRow)
ShName = .Name
End With
Charts.Add
With ActiveChart
.ChartType = xlLine
.SetSourceData Source:=Rng1
With .SeriesCollection.NewSeries
'.Values = rng2
.AxisGroup = 2
End With
.Location Where:=xlLocationAsObject, Name:=ShName
End With
'copia grafico1 a Storico_CSV
Sheets("Grafico1").Select ' grafico di origine
ActiveSheet.Unprotect
ActiveChart.Legend.Select
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Sheets("Storico_CSV").Select
Range("A5").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Grafico 5").Activate ' diventa "grafico 5" dopo copia sul foglio Storico_CSV
ActiveSheet.Shapes("Grafico 5").ScaleWidth 0.9865924553, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Grafico 5").ScaleHeight 0.9701706491, msoFalse, _
msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=12
ActiveSheet.ChartObjects("Grafico 5").Activate
ActiveSheet.Shapes("Grafico 5").ScaleWidth 0.9833852544, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Grafico 5").ScaleHeight 0.7638077647, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.ScrollRow = 1
ActiveSheet.Protect
End Sub

[Gianca53]

Rettifico , si impianta qui :

.Location Where:=xlLocationAsObject, Name:=ShName

[Alexsandra]

Non può "piantarsi" in quella riga, il codice è pulito.
probabile invece che ci sia un problema sulle variabili dopo vari utilizzi e/o prove
faccio delle prove e poi ti dico

[Gianca53]

Ok, grazie, infatti ho un altro dubbio, ovvero a volte tutto funziona per il meglio, mentre talvolta nel grafico noto la riduzione dei dati visualizzati, pur con una selezione dei dati, da macro, corretta e l'errore non è costante.

[Alexsandra]

Perchè invece di creare il grafico, copiarlo in un altro foglio e poi rimuoverlo non copi direttamente nel foglio "storico". Prova a valutare un codice come questo

Sub Test() ' crea grafico
Dim LastRow As Long
Dim Rng1 As Range
Dim ShName As String

With ActiveSheet
    LastRow = .Range("K" & .Rows.Count).End(xlUp).Row
    Set Rng1 = .Range("K2:K" & LastRow & ", L1:L" & LastRow)
End With

Charts.Add

With ActiveChart
    .ChartType = xlLine
    .SetSourceData Source:=Rng1

  With .SeriesCollection.NewSeries
    .AxisGroup = 2
  End With
  
.Location Where:=xlLocationAsObject, Name:="storico"
End With

With ActiveSheet.ChartObjects("Grafico 1") 'dimensioni grafico
    .Width = 300
    .Height = 150
    .Top = Range("A5").Top
    .Left = Range("A5").Left + 5
    End With
Sheets("foglio1").Select

Set Rng1 = Nothing

End Sub

[Gianca53]

Grazie, effettivamente è più efficace, ora non mi resta che adattare il tutto alle mie esigenze grafiche con l'aggiunta di due medie mobili. Provo e poi vi so dire.

Ho una gestione dati di circa 1500 righe, quale è il limite gestito da excel 2013 x la grafica ?

[Gianca53]

Sembra banale, ma ho scoperto un mare di contraddizioni nella costruzione di grafici con VBA, ciò che va bene x Excel 2013, non va bene con il 2010 o 2007 et viceversa. A volte anche macro create con il generatore, poi applicate sul foglio attivo, si inceppano e non funzionano più.

[Gianca53]

Giusto per concludere l'argomento e i dubbi sollevati, allego file di esempio che si aggiorna di volta in volta, ad ogni caricamento di dati di borsa nella applicazione su cui sto lavorando, nell'esempio ricarica ovviamente sempre gli stessi dati.
Aggiungo anche un breve riepilogo di macro che creano grafici, l'ultima delle quali è collegata ad un intervallo dinamico.

[Alexsandra]

Bello, per chi ci capisce di borsa