Save Excel Charts to PDF in Landscape Orientation and Fit Page

I have a workbook with four worksheets (Sheet1, Sheet2, Sheet3, Sheet4) that contain nothing more than a basic Excel chart in each sheet. I would like to write a macro that when I click the macro button, I will be prompted to name the file and select a save location. I would like to save each excel chart in Landscape orientation, as well as FitToPagesWide = 1 and FitToPagesTall = 1.

The idea is that the charts will print to independent pages from the .PDF and be large enough I can display them on a board. The paper could print in basic A3, or A4, depending on the country where the printing is going to occur.

Here's what I have... It works to save the four sheets to .PDF pages, however, they are not in landscape orientation and they do not fill the page to the maximum size the chart can stretch without going off the page:

Please Login or Register  to view this content.

Please help

So I tried this and now one of the four PDF sheets is in landscape orientation, but the chart does not fit the entire page. I'm confused why only one sheet turned landscape orientation and not the others? Please help...

Please Login or Register  to view this content.