Ik heb de volgende code:
In deze code open ik een template ppt file. Van deze maak ik gebruik om een nieuwe ppt te maken. In deze nieuwe ppt zet ik een plaatje in en zet er notes text bij. Daarna save ik hem weer.
Echter de grootte van de ppt is dan al 1,5 Mb. de vraag is hoe kan ik de filesize kleiner krijgen? het plaatje is rond de 30kb en de tekst zo'n 10kb
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Set objPPT3 = Server.CreateObject("Powerpoint.Application")
Set objPresentations3 = objPPT3.Presentations
Set objPoint3 = objPresentations3.Open("c:\test.ppt", False, False, False)
With objPoint3.Slides.Add(1, 1).Shapes
.Title.TextFrame.TextRange = titelppt
.AddPicture var & "upload\"&filenaam&"",0, 1, 0, 0, 725, 540
End With
objPoint3.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.InsertAfter temptekst
objPoint3.Saveas "c:\eindetest.ppt",11, True
objPoint3.Close()
objPPT3.Quit() |
In deze code open ik een template ppt file. Van deze maak ik gebruik om een nieuwe ppt te maken. In deze nieuwe ppt zet ik een plaatje in en zet er notes text bij. Daarna save ik hem weer.
Echter de grootte van de ppt is dan al 1,5 Mb. de vraag is hoe kan ik de filesize kleiner krijgen? het plaatje is rond de 30kb en de tekst zo'n 10kb