Code snippet required | Copy paste drawing objects too

[Mr.Karr]

Hello,

Please refer to the code below;

    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

This code helps copy range and paste into bod of the email. Also please note, I have drawing objects like rectangles, text boxes in the mentioned range. Can you please tweak the above code and help. Thanks in advance.

Best Regards,
Karr

 

[Mr.Karr]

anything to do with this line ?

.Cells(1).PasteSpecial Paste:=8

 

[Mr.Karr]

@Hui please any advise on this ? thanks