Macro help for emailing objects not just cells using outlook

Hi i am trying to finish a macro to send out an email to every person on a list with a chart and info that is dependent on the person. the macro is as follows: (please check post 2 for the problem)

Please Login or Register  to view this content.

This works properly with the exseption of shapes. i have tried to add the copy to the temp book of all the shapes but its not working out. I dont know VBA but i am somewhat capable to read it and change things around most of this macro was created via {record} and sripts i have found on this and other forums that i put togather, i know its not the best way but it has gotten me by so far.

i have bolded the script to paste theshapes as well as the cells that i have tried to write below that ends up stoping this macro from working


.Shapes.Range(Array("Picture 10", "Text Box 8", "Picture 9", "Picture 6", "Chart 5")).PasteSpecial Paste:=8
.Shapes.Range(Array("Picture 10", "Text Box 8", "Picture 9", "Picture 6", "Chart 5")).PasteSpecial xlPasteValues, , False, False
.Shapes.Range(Array("Picture 10", "Text Box 8", "Picture 9", "Picture 6", "Chart 5")).PasteSpecial xlPasteFormats, , False, False
.Shapes.Range(Array("Picture 10", "Text Box 8", "Picture 9", "Picture 6", "Chart 5")).Select
Application.CutCopyMode = False

Please Login or Register  to view this content.

if anyone could help me fix this that would be great, thanks in advance.