Aggiungi Grafico dentro OLE

OLE1.Format = "CF_TEXT" ' Imposta il formato file su testo.
OLE1.SizeMode = 2 ' Autosize.
OLE1.CreateEmbed "", "MSGraph.Chart.8"
OLE1.DoVerb -3
Set oBook = OLE1.object
Set oSheet = oBook.application