Writing Excel graphs to various PAGES on a PDF document

I am designing a production schedule to accept data from 3 databases. Production, Marketing and Warehouse inventory control. Im using VBA and have completed all the necessary data collection and analysis.

I am using simple graphs to plot the data and i would like to distribute various combinations of tables and graphs on seperate pages of a pdf document to complete a production report.

The best code i have to do this, submitted by sineil, is,

saveLocation = Application.GetSaveAsFilename( _
fileFilter:="PDF Files (*.pdf), *.pdf")
If saveLocation <> "False" Then
ActiveSheet.Shapes.Range(Array("Chart 2", "Chart 7", "Chart 8", "Chart 11", _
    "Chart 6", "Chart 5", "Chart 12")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, saveLocation, xlQualityStandard, False, False, 1, 2

The above code saves everything on the worksheet in a scale that is not desirable.

Please assist.

Thanks, Neel