copy from worksheet and paste to email body with formatting

[DonAndress]

Hello,

I am trying to get a better copy/paste method. Generally I use Ron de Bruin's code (Mail Range or Selection).
But from my worksheet I am copying a pivot table and I'd like to paste it into email body with all formats, including shading and borders, as you usually do with ctrl+C -> ctrl+V.

So when copying manually, either to other excel sheet, or to outlook email body, all formatting is kept. When I use the below code, shading and borders are lost.

May I ask for a hint on how to keep all of it?

There is no point of me quoting here all Ron's code, I will just paste only this part of code which is responsible for pasting into new file:

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).PasteSpecial xlPasteAllUsingSourceTheme, , False, False     'sorry, I added this line as a test, doesn't work
    .Cells(1).Select
    Application.CutCopyMode = False
    On Error Resume Next
    .DrawingObjects.Visible = True
    .DrawingObjects.Delete
    On Error GoTo 0
End With

 

[Domenic]

Try adopting the following code...

    ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1").TableRange2.Copy
   
    With mi
        .Display
        .To = "..."
        .Subject = "..."
        With .GetInspector.WordEditor
            .Application.Selection.EndKey Unit:=6 'wdStory
            .Application.Selection.TypeParagraph
            .Application.Selection.TypeParagraph
            .Application.Selection.Paste
        End With
        '.Send
    End With
   
    Application.CutCopyMode = False

...where the variable mi represents a MailItem.

Hope this helps!

 

[DonAndress]

Try adopting the following code...

I'm afraid it doesn't work either.
Shading and borders are not being pasted.

 

[Domenic]

When I run the code, here's what I get...

Excel Worksheet

don.xlsm
	A	B	C	D	E	F	G	H	I
1	Region	(All)
2
3	Row Labels	Sum of Sales
4	Amy	$ 112,624
5	Bob	$ 203,736
6	Chuck	$ 86,464
7	Doug	$ 100,768
8	Grand Total	$ 503,592
9
10
Pivot

Outlook Email

Can you post the exact code that you're using to copy and paste?