<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & PowerPoint.Application</title> </head> <body> <% Dim ppApp,ppPres,ppSlide1,ppName Set ppApp = Server.CreateObject("PowerPoint.Application") ppName = "MyPP/MyPPt.ppt" Set ppPres = ppApp.Presentations.Add(1) Set ppSlide1 = ppPres.Slides.Add(1,1) ppSlide1.Shapes(1).TextFrame.TextRange.Text = "Welcome to" ppSlide1.Shapes(2).TextFrame.TextRange.Text = "www.ThaiCreate.Com" & vbCr & "Version 2009" ppApp.Presentations(1).SaveAs(Server.MapPath(ppName)) ppApp.Quit Set ppApp = Nothing %> PowerPoint Created <a href="<%=ppName%>">Click here</a> to Download. </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
