Grafico non generato dal codice vba se non esiste già un altro grafico

Ho un tavolo in excel con più colonne e righe. Ho scritto questo semplice codice per generare un grafico a linea dalla mia tabella:

Sub DrawLine() Dim cht As ChartObject For Each cht In Worksheets(Sheets.Count).ChartObjects cht.Chart.Type = xlLine Next cht End Sub 

Tuttavia, quando esegui questo codice, non riesco a vedere il mio grafico, a less che non vengano creati manualmente un altro grafico sul mio foglio di lavoro. In questo caso, quando eseguo il codice, il grafico cambia per visualizzare quello che fa il mio sub.

Qualcuno sa quale potrebbe essere il problema?

Non stai creando grafici con il tuo codice. Quello che stai facendo è cambiare qualsiasi grafico attualmente esistente per diventare un grafico a linea.

Nel tuo codice mancano molte cose. Pl vedi esempio qui sotto.

  Sub Test() Dim LastRow As Long Dim Rng1 As Range Dim ShName As String With ActiveSheet LastRow = .Range("A" & .Rows.Count).End(xlUp).Row Set Rng1 = .Range("A2:A" & LastRow & ", B2:B" & LastRow) ShName = .Name End With Charts.Add With ActiveChart .ChartType = xlLine .SetSourceData Source:=Rng1 .Location Where:=xlLocationAsObject, Name:=ShName End With End Sub 

immettere qui la descrizione dell'immagine