Send Outlook with chart in range ..

Dear Expert .

i've code in used : but company changed the report send with a chart that can't be show ? do any suggest

Set rng = Sheet9.Range(Cells(1, 1), Cells(28, 15))

there with a chart in range.

Thanks help