Produrre immagine (gif) del foglio ed inserirla dentro un Form

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 Sub

Devo produrlo per 300 fogli.

Ciao
non inserendo una path specifica sull'export, l'immagine va a finire in documenti, MA su load gli devi dare la path completa.

"C:\xxx\xxx\Documents\ClassArgA.gif"

O meglio, esporta in una cartella predeterminata e poi fai il load da tale cartella, es:

...
mychart.Export "C:\MiaCartella\ClassArgA.gif"
...
UserForm1.Image1.Picture = LoadPicture("C:\MiaCartella\ClassArgA.gif")


saluti

Ciao Dodo, continua a non funzionare

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 "C:\Program\Class\ClassArgA.gif"
mywks.ChartObjects(1).Delete

Image1.Picture = LoadPicture("C:\Program\Class\ClassArgA.gif")
End Sub

In Rosso sono le modifiche da te suggerite

Tutta via mi sorge un dubbio ed è quel codice evidenziato in verde, ActiveSheet che ho provato anche a sostituire con il nome del foglio.

Anche in questo caso il codice non produce errore ma non salva e non visualizza l'immagine

Ciao
ma chissà che fai!!
Se "ClassArg_A" è il nome assegnato alla tua userform, non ci devi scrivere:Private Sub ClassArg_A_Initialize(), ma:

vai nella finestra vba
doppio click a sinistra sulla tua userform
doppio click a destra sulla userform (che contiene l'oggetto Immage1)
scegli l'evento Initialize
Excel scrive:

Private Sub UserForm_Initialize()

End Sub


poi in mezzo ci incolli il codice che funziona perfettamente

saluti

Si Dodo funziona,
ma avrei bisogno di una ulteriore informazione con activeshet viene fotografata l'area range del foglio attivo, ma per spostarlo su un foglio di mia scelta?

Ho sostituito activeshet con foglio 14 e mywks con foglio 14

ma quando lancio la macro che dovrebbe aprirmi la forma mi da errore 9. La forma si chiama ClassArg_A e anche sostituendola con UserForm continau darmi errore.
Grazie per la pazienza

Ciao
non cominciamo a dire un pezzetto per volta!!!


se l'immagine è nel foglio 14, l'unica variazione che devi fare è:

...
Set mywks = Worksheets("Foglio14")
...

Errore 9 (out of range)...dove te lo da?
Che fa 'sta macro??

Cerca di essere completo nelle tue richieste che nessuno ha la palla di vetro....

saluti

Ciao Dodo l'errore me lo da quando da pulsante vado ad aprire la form

Private Sub CommandButton8_Click()
ClassArg_A.Show vbModeless
End Sub

Ma esiste 'sto foglio14 ??
ci fai vedere la macro??

dopo che ti segnala l'errore clicca su debug...vai avanti con F8 finchè non ti ridà l'errore e vedi dove si pianta!!

Ho risolto Dodo mi confondo sempre con il nome da mettere, faccio confusione tra Worksheets e Sheets

Grazie per la pazienza

Originariamente inviato da Codice_da_Vinci

Ho risolto Dodo mi confondo sempre con il nome da mettere, faccio confusione tra Worksheets e Sheets

Grazie per la pazienza

...che avevi fatto: Worksheets(xxxx).Activate ???