Insira um objeto rptImage no dataReport
no form que esta com grafico insira um command button com cod abaixo
'copia figura
cthManut.EditCopy
If DataEnvironment1.Connection1.State = 1 Then DataEnvironment1.Connection1.Close
DataEnvironment1.Connection1.Open
DataEnvironment1.Command1 "tk1"
'cola figura no objeto image no datareport
Set rptImag.Sections(5).Controls("Image2").Picture = Clipboard.GetData(vbCFDIB)
rptImag.Show