VBA - Resizing all object in powerpoint

The following code allows me to take all worksheets in a workbook and create a PowerPoint presentation automatically. The problem I am running into is adding the instructions to make every image in every slide 540 tall by 960 wide and then center each object in its respective slide. Last hurdle requires the help of the community. Thank you in advance.

Sub CopyToPowerPoint()
Dim pptApp As New PowerPoint.Application
Dim pptPre As PowerPoint.Presentation
Dim pptSld As PowerPoint.Slide
Dim objSheet As Excel.Worksheet
Dim pptShape As PowerPoint.Shape

pptApp.Visible = msoTrue

Set pptPre = pptApp.Presentations.Add

For Each objSheet In ThisWorkbook.Worksheets

objSheet.Range("Print_Area").Copy 'Picture Appearance:=xlScreen, Format:=xlPicture

Set pptSld = pptPre.Slides.Add(pptPre.Slides.Count + 1, ppLayoutBlank)

pptSld.Shapes.PasteSpecial ppPasteEnhancedMetafile
Set pptShape = pptSld.Shapes(1)

Next

End Sub