Problem With pasting table as Image

hey,
I'm using this macro in order to copy a table and paste it to powerpoint presentation:

Sub pic_to_pp()
'
' pic_to_pp Macro
'

'
    Selection.Copy
    ActiveSheet.Pictures.Paste.Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveSheet.PasteSpecial Format:="bitmap", Link:=False, DisplayAsIcon _
        :=False
'    Selection.Cut
 '   ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False,
'        DisplayAsIcon:=False
    Selection.ShapeRange.Width = 800
    Selection.Cut
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

and for some reason it creates thicker lines in the middle of the table how can I solve it ?

It may have to do with the way you "cut." Here is a piece of code I use for this purpose:

sh.Range(ObjName).CopyPicture

I don't know if there is a like CutPicture.