Ma, evidentemente non è possibile passare direttamente l'immagine nel DR, quindi ho utilizzato:
codice:
Sub SalvaGrafico()
' Nome del grafico:
sNGrafDiff = "GraficoDiff"
vData = Clipboard.GetData
Clipboard.Clear
FrmLisDiff.MSChartD.EditCopy
FrmLisDiff.ImageGraf.Picture = Clipboard.GetData(vbCFBitmap) '(vbCFDIB)
SavePicture FrmLisDiff.ImageGraf.Picture, App.Path & "\DATI\Grafico\" & sNGrafDiff & ".bmp"
Clipboard.Clear
Clipboard.SetData vData
' Acquisisce il Nome del Grafico con l'estensione:
sNomeGraf = sNGrafDiff & ".bmp"
' Imposta cursore mouse :
Screen.MousePointer = 0
Exit Sub
End Sub
'Per poi caricarla con:
Set .Picture = LoadPicture(App.Path & "\DATI\Grafico\" & sNomeGraf).