Excel creating partial graphs when saving PDFs

Question

I am having the same issue as discussed in THIS THREAD.

When saving graphs as PDFs with Excel displayed on my extended large 24" HP monitor, the graphs are clipped to show only about the left/upper 2/3rds.

I even created a new workbook with similar graphs and it did it there too. It comes out the same when I use print to MS PDF.
When saving graphs as PDFs with Excel displayed on my smaller HP Spectre laptop 13.3" monitor, the graphs come out perfect.

I use MS 365, so I automatically have the latest version.

Answer 1

Hi,

scenario:

export chart from the active sheet to pdf , paper A4

vba code

Sub ActiveChart_to_PDF_A4()

'## 06-Feb-2023 ##

Dim ws As Worksheet

Set ws = ActiveSheet

Dim sPath As String

sPath = ThisWorkbook.Path & ""

Dim obj As ChartObject

Dim sh As Shape

Dim objName As String, sAdr As String, s1 As String, s2 As String

Set obj = ws.ChartObjects(1)

objName = obj.Name

Application.ScreenUpdating = False

Sheets.Add

With ActiveSheet.Cells

.RowHeight = 2

.ColumnWidth = 0.2

End With

obj.CopyPicture

ActiveSheet.Paste

Set ws = ActiveSheet

Set sh = ws.Shapes(1)

sh.Width = Application.InchesToPoints(11.6)

sh.Height = Application.InchesToPoints(8)

s1 = sh.TopLeftCell.Address

s2 = sh.BottomRightCell.Address

sAdr = s1 & ":" & s2

With ws.PageSetup

.PrintArea = sAdr

.LeftMargin = Application.InchesToPoints(0)

.RightMargin = Application.InchesToPoints(0)

.TopMargin = Application.InchesToPoints(0)

.BottomMargin = Application.InchesToPoints(0)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PaperSize = xlPaperA4

.Zoom = False

.FitToPagesTall = 1

.FitToPagesWide = 1 '

.CenterHorizontally = True

.CenterVertically = True

.Orientation = xlLandscape

End With

ws.ExportAsFixedFormat xlTypePDF, Filename:=sPath & Format(Date, "yyyymmdd-") & objName & ".pdf", OpenAfterPublish:=True

Application.DisplayAlerts = False

ws.Delete

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

==========================

step1

Save  your Workbook with extension .xlsm (macros enabled workbook)

Step2

2a) press ALT+F11 to open Visual Basic

2b) from the ribbon, select: Insert > Module and paste the code above on the right 

2c) Press ALT+Q to Close Visual Basic

Step3

To run the macro, press ALT+F8, 

select '**ActiveChart_to_PDF_A4'**from the list and click the run button.

or

add a button and assign the  vba macro

Answer 2

Not having the problem is MS's (and your) job.

I'm just here for fun because Excel is my hobby. I am not paid for my work here. .-)

Andreas.

Answer 3

)-:

"This sounds like a "bug". I will forward to..."
would have been a better response.

I know how to "get around" the problem; Not having the problem is MS's (and your) job.

Answer 4

If so, all you can do is send a frown. Or try a different PDF printer, there are several tools available on the web.

We do not collect or report bugs here. This is an answers forum, we help users to achieve there concerns.
I you want to report a bug please have a look here:

How do I give feedback on Microsoft Office? - Office Support

Andreas.