Exporting Cell Range As PNG - Getting A White Border To The Bottom & Right - Why?

[TkdKidSnake]

Hi all,

I am exporting a range of cells as a PNG however, when I look at the result I am getting a white border at the bottom and to the right (there isn't any white there) - Any ideas why and how to resolve this as it would save me having to manually edit each time.

The code I have is:

Sub Xport01Mon()
'
Sheets("Mon").Select
ActiveSheet.Unprotect

Dim ws As Worksheet
Dim table As Range
Dim pic As Picture
Dim cht As ChartObject
Dim myPath As String
Dim myPic As String
Dim myWidth As Long
Dim myHeight As Long

Set ws = ThisWorkbook.Sheets("Mon")
Set table = ws.Range("B5:X548")

myPath = "C:\Users\stevseat\Documents\001 - TST Schedule\"
myPic = Range("C1").Value

table.CopyPicture xlScreen, xlPicture
myWidth = table.Width
myHeight = table.Height

Set cht = ws.ChartObjects.Add(Left:=0, Top:=0, _
    Width:=myWidth, Height:=myHeight)
    
cht.Activate

With cht.Chart
    .Paste
    .Export Filename:=myPath & myPic, Filtername:="png"
End With

cht.Delete

ActiveSheet.Protect

End Sub

This is what I am seeing as the output:

Any help you can provide would be greatly appreciated.

Thanks in advance

 

[Micron]

It looks to me like that is a 3D effect (so the object looks raised with a beveled edge). Have never used that feature. Did you try using a mix of different parameters like bitmap or printer?

 

[John_w]

Try adding cht.Border.LineStyle = xlLineStyleNone after the cht.Activate line.

 

[TkdKidSnake]

Try adding cht.Border.LineStyle = xlLineStyleNone after the cht.Activate line.

Hi, thank your for your input, I've tried this and I'm still getting, I have 7 worksheets all formatted the same most have the borders as described, 1 only has it on the right side - its very strange as they are only tables that I am exporting to PNGs

 

[TkdKidSnake]

It looks to me like that is a 3D effect (so the object looks raised with a beveled edge). Have never used that feature. Did you try using a mix of different parameters like bitmap or printer?

Hi,
Thank you for your response, no 3D effects they are just excel standard tables (7 in total one for each day of the week)

Not sure what you mean by "Did you try using a mix of different parameters like bitmap or printer?" as these are saved files and this is how they display on screen.

 

[Micron]

I don't think you're understanding my meaning. I said the resulting image looks like it is of an area where a 3D effect has been applied to the image. Here are 2 textboxes, the lower one with its "special effect" property set to "raised".

I assumed you would know about the parameters used in the CopyPicture method. I've long closed those browser windows so I'll leave it to you to research CopyPicture for now.

 

[John_w]

Hi, thank your for your input, I've tried this and I'm still getting

Try xlContinuous instead.

 

[jolivanes]

I don't use chartobjects anymore.
I prefer the copying to Irfanview and saving from there as a picture
You can copy a selection or a range into Irfanview

 

[TkdKidSnake]

I don't think you're understanding my meaning. I said the resulting image looks like it is of an area where a 3D effect has been applied to the image. Here are 2 textboxes, the lower one with its "special effect" property set to "raised".
View attachment 119637
I assumed you would know about the parameters used in the CopyPicture method. I've long closed those browser windows so I'll leave it to you to research CopyPicture for now.

Hi,

I do understand what you are say and no there isn't any 3D formatting applied.

 

[jolivanes]

If you want to try by installing IrfanView, it is a very good program and it is free, with all the required plugins.

This is for two computers as you see.
Normally one does not need the Select Case part.

Sub With_IrfanView()
Dim myPic As Object
Dim cv As String, savePath As String
Set myPic = ActiveSheet.Range("A1:H1")    '<---- Change as required
Select Case Environ("computername")
Case "DESKTOP"
cv = "C:\Program Files\IrfanView\i_view64.exe"
Case "LAPTOP"
cv = "C:\Program Files (x86)\IrfanView\i_view32.exe"
End Select
savePath = "C:\WhatEver Folder\WhatEver Picture Save Name.jpg"    '<---- Change as required
myPic.Copy
Shell cv & " ""/clippaste /convert=" & savePath & """", vbNormalFocus
End Sub