VBA Code to delete Grey Border from Image inside Excel

[aayaanmayank]

Hi
Can anyone please help me on this. i have created macro which create an image by collating text boxes and shapes. how while pasting that in to outlook i am getting Grey border. which i need to remove.
is there any way to remove.
below is the code which is creating image.

Sub createcopy()
    Dim sh As Worksheet
    Dim lr As Variant
Application.DisplayAlerts = False

Set sh = ThisWorkbook.Sheets("Template")

lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row - 1

Worksheets("Template").Range("A1:Q" & lr).CopyPicture xlScreen, xlPicture
Sheets("Sheet1").Activate
Sheets("Sheet1").Paste
End Sub

 

[YasserKhalil]

Maybe

Sub Create_Copy()
    Dim sh As Worksheet, lr As Long
    Application.DisplayAlerts = False
        Set sh = ThisWorkbook.Sheets("Template")
        sh.Activate
        lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row - 1
        ActiveWindow.DisplayGridlines = False
            sh.Range("A1:Q" & lr).CopyPicture xlScreen, xlPicture
        ActiveWindow.DisplayGridlines = True
        With Sheets("Sheet1")
            .Activate: .Paste
        End With
    Application.DisplayAlerts = True
End Sub

 

[aayaanmayank]

Maybe

Sub Create_Copy()
    Dim sh As Worksheet, lr As Long
    Application.DisplayAlerts = False
        Set sh = ThisWorkbook.Sheets("Template")
        sh.Activate
        lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row - 1
        ActiveWindow.DisplayGridlines = False
            sh.Range("A1:Q" & lr).CopyPicture xlScreen, xlPicture
        ActiveWindow.DisplayGridlines = True
        With Sheets("Sheet1")
            .Activate: .Paste
        End With
    Application.DisplayAlerts = True
End Sub

I tried this one but my image is getting bit blur.

 

[YasserKhalil]

This is a workaround to get rid of the grey borders as you request. I didn't get what you mean with fuzzy. Can you put snapshots of the desired output?

 

[aayaanmayank]

I tried this one but my image is getting bit blur.

Image is loosing quality even if i crop picture.

 

[aayaanmayank]

This is a workaround to get rid of the grey borders as you request. I didn't get what you mean with fuzzy. Can you put snapshots of the desired output?

My mean, but ruuning above code, image is loosing its quality. and it is getting bit blur.

 

[aayaanmayank]

This is a workaround to get rid of the grey borders as you request. I didn't get what you mean with fuzzy. Can you put snapshots of the desired output?

 

[aayaanmayank]

PIC2 is bit blur

View attachment 20799View attachment 20800

Pic 2 is little Blur.