Ti ringrazio per la risposta tempestiva.
Ho provato ad usarla modificando le parti di mio interesse.
Come macro non da errore e la esegue: il problema è che l'immagine è completamente bianca 😅
Ho riprodotto qua sotto la macro:
Sub SalvaImmaginediFoglio()
Dim wsSheet As Worksheet, oRange As Range, oCht As Chart, oImg As Picture
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ws = Worksheets("Grafico")
Set oRange = Range("A1:O48") '<<<< range da salvare VARIARE
Set oCht = Charts.Add
oRange.CopyPicture xlScreen, xlPicture
oCht.Paste
filepath = "C:\Users\energia\Desktop\" 'dove salvare l'immagime <<<< VARIARE
ActiveSheet.Export Filename:=filepath & "Foglio1.jpg", FilterName:="jpg" '<<<< VARIARE NOME
ActiveSheet.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Foglio1 creato"
End Sub
Non so se puoi aiutarmi in qualche modo.
Grazie comunque ancora 😀