01.<html>
02.<head>
03.<title>ThaiCreate.Com PHP & PowerPoint.Application</title>
04.</head>
05.<body>
06.<?php
07.
08.
09. $ppLayoutBlank = 12;
10. $ppLayoutChart = 8;
11. $ppLayoutChartAndText = 6;
12. $ppLayoutClipartAndText = 10;
13. $ppLayoutClipArtAndVerticalText = 26;
14. $ppLayoutFourObjects = 24;
15. $ppLayoutLargeObject = 15;
16. $ppLayoutMediaClipAndText = 18;
17. $ppLayoutMixed = -2;
18. $ppLayoutObject = 16;
19. $ppLayoutObjectAndText = 14;
20. $ppLayoutObjectAndTwoObjects = 30;
21. $ppLayoutObjectOverText = 19;
22. $ppLayoutOrgchart = 7;
23. $ppLayoutTable = 4;
24. $ppLayoutText = 2;
25. $ppLayoutTextAndChart = 5;
26. $ppLayoutTextAndClipart = 9;
27. $ppLayoutTextAndMediaClip = 17;
28. $ppLayoutTextAndObject = 13;
29. $ppLayoutTextAndTwoObjects = 21;
30. $ppLayoutTextOverObject = 20;
31. $ppLayoutTitle = 1;
32. $ppLayoutTitleOnly = 11;
33. $ppLayoutTwoColumnText = 3;
34. $ppLayoutTwoObjects = 29;
35. $ppLayoutTwoObjectsAndObject = 31;
36. $ppLayoutTwoObjectsAndText = 22;
37. $ppLayoutTwoObjectsOverText = 23;
38. $ppLayoutVerticalText = 25;
39. $ppLayoutVerticalTitleAndText = 27;
40. $ppLayoutVerticalTitleAndTextOverChart = 28;
41.
42.
43. $ppApp = new COM("PowerPoint.Application");
44.
45. $strPath = realpath(basename(getenv($_SERVER["SCRIPT_NAME"])));
46. $ppName = "MyPP/MyPPt.ppt";
47.
48. $ppPres = $ppApp->Presentations->Add();
49.
50. $ppSlide1 = $ppPres->Slides->Add(1,$ppLayoutTitle);
51. $ppSlide1->Shapes(1)->TextFrame->TextRange->Text = "Welcome To";
52. $ppSlide1->Shapes(2)->TextFrame->TextRange->Text = "www.ThaiCreate.Com".chr(13)."Version 2009";
53.
54.
55. $ppSlide2 = $ppPres->Slides->Add(2,$ppLayoutTwoColumnText);
56. $ppSlide2->Shapes(1)->TextFrame->TextRange->Text = "www.ThaiCreate.Com Version";
57. $ppSlide2->Shapes(2)->TextFrame->TextRange->Text = "Version 2008".chr(13)."Version 2008".chr(13).
58. "Version 2008".chr(13)."Version 2008";
59. $ppSlide2->Shapes(3)->TextFrame->TextRange->Text = "Version 2009".chr(13)."Version 2009".chr(13).
60. "Version 2009".chr(13)."Version 2009";
61.
62. $ppSlide3 = $ppPres->Slides->Add(3,$ppLayoutTable);
63. $ppSlide3->Shapes(1)->TextFrame->TextRange->Text = "We Love ThaiCreate.Com";
64.
65. $ppSlide4 = $ppPres->Slides->Add(4,$ppLayoutTextAndChart);
66. $ppSlide4->Shapes(1)->TextFrame->TextRange->Text = "We Love ThaiCreate.Com";
67. $ppSlide4->Shapes(2)->TextFrame->TextRange->Text = "2005".chr(13)."2006".chr(13)."2007".chr(13)."2008".chr(13)."2009";
68.
69. $ppApp->Presentations[1]->SaveAs($strPath."/".$ppName);
70.
71.
72. $ppApp->Quit;
73. $ppApp = null;
74.
75.?>
76.PowerPoint Created <a href="<?php echo $ppName?>">Click here</a> to Download.
77.</body>
78.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
