I wrote a vba macro code to copy paste multiple xlsm data sheets and charts into an existing powerpoint file, with the slides being cleared so as not to overwrite the existing slides. The powerpoint file is then saved. There are about 80 slides that need to be copied out of 140 slides.

The original powerpoint file is in .pptx format. The macro saves the file as .pptm format.

I took some piece of the code from another code and improvised upon it. I am not sure why the file is originally saved as a .pptm but could this be causing a large file size? However the copy paste vba code works perfectly fine except that we cannot send the huge file (25MB) as an e-mail attachment. The original file size is 4MB. All we are doing is deleting some slides and copy / pasting the ones from the ,xlsm file. Is there a way we can reduce the file size?

Should I have used the .pptx instead?


Sub Copy2PowerPoint2()
Application.ScreenUpdating = False
Dim slidenum As Integer
Dim PPTM As PowerPoint.Application


Set PPTM = New PowerPoint.Application
PPTM.Visible = True
PPTM.Presentations.Open Filename:="F:\Focus\Myfolder\Copy Paste Project\OnePagers_Templates\OriginationsMonitorPac kage.pptm"

I tried saving the original file as .pptx. I modified the code to use .PPTX instead. The original ppt file size was 305 KB with 4 blank slides. I tried from a small file of 11 slides and pasted 4 slides and saved the file. The file size increased to 586 KB.