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).