<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & PowerPoint.Application</title>
</head>
<body>
<%
'*** Constant ***'
Const ppLayoutTitleOnly = 11
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,ppLayoutTitleOnly)
'*** AddTextbox, objControl.Left,objControl.Top,objControl.Width,objControl.Height ***'
ppSlide1.Shapes.AddTextbox 1,50,100,700,100 '***4
ppSlide1.Shapes(1).TextFrame.TextRange.Text = "I Love ThaiCreate.Com 1"
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Size = 10
ppSlide1.Shapes.AddTextbox 1,50,150,700,100
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "I Love ThaiCreate.Com 2"
ppSlide1.Shapes(2).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(2).TextFrame.TextRange.Font.Size = 20
ppSlide1.Shapes.AddTextbox 1,50,200,700,100
ppSlide1.Shapes(3).TextFrame.TextRange.Text = "I Love ThaiCreate.Com 3"
ppSlide1.Shapes(3).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(3).TextFrame.TextRange.Font.Size = 30
ppSlide1.Shapes.AddTextbox 1,50,250,700,100
ppSlide1.Shapes(4).TextFrame.TextRange.Text = "I Love ThaiCreate.Com 4"
ppSlide1.Shapes(4).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(4).TextFrame.TextRange.Font.Size = 40
ppSlide1.Shapes.AddTextbox 1,50,300,700,100
ppSlide1.Shapes(5).TextFrame.TextRange.Text = "I Love ThaiCreate.Com 5"
ppSlide1.Shapes(5).TextFrame.TextRange.Font.Name = "Arial"
ppSlide1.Shapes(5).TextFrame.TextRange.Font.Size = 50
ppSlide1.Shapes.AddPicture Server.MapPath("thaicreate-2009.gif"),0,1,250,330,200,188 '*** Picture,Left,Top,Width,Height ***'
ppApp.Presentations(1).SaveAs(Server.MapPath(ppName))
ppApp.Quit
Set ppApp = Nothing
%>
PowerPoint Created <a href="<%=ppName%>">Click here</a> to Download.
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
