Salve sto cercando di riprodurre una immagine gif di una porzione del foglio ed inserirla dentro un form. Il codice non mi da nessun errore però mi visualizza il form vuoto, sapreste dirmi cosa c'è di sbagliato? Grazie
Private Sub ClassArg_A_Initialize() Dim mychart As Chart, mywks As Worksheet, myrange As Range Set mywks = ActiveSheet Set mychart = Charts.Add mychart.ChartType = xlColumnClustered mychart.SetSourceData Source:=mywks.Range("A65536") mychart.Location Where:=xlLocationAsObject, Name:=mywks.Name Set myrange = mywks.Range("K1:S24") Set mychart = mywks.ChartObjects(1).Chart With mywks.ChartObjects(1) .Width = myrange.Width .Height = myrange.Height .Border.LineStyle = xlNone End With myrange.CopyPicture Appearance:=xlScreen, Format:=xlBitmap mychart.Paste mychart.Export "ClassArgA.gif" mywks.ChartObjects(1).Delete UserForm1.Image1.Picture = LoadPicture("ClassArgA.gif") End SubDevo produrlo per 300 fogli.