ASP.NET(vb.net) & PowerPoint - Create Multiple Slides

Author: admin | Posted: 19-06-2010 | Category: ASP.NET(vb.net) & PowerPoint (PowerPoint.Application)

ASP.NET(vb.net) & PowerPoint - Create Multiple Slides - This is example scripts how to use ASP.NET Create Multiple Slides in Presentations.

ShotDev Focus:
- ASP.NET(vb.net) & PowerPoint - Create Multiple Slides

Example

AspNetPowerPointMultiSlides.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="AspNetPowerPointMultiSlides.aspx.vb" Inherits="AspNetPowerPointMultiSlides" %>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label>
</form>
</body>
</html>

AspNetPowerPointMultiSlides.aspx.vb


Imports Microsoft.Office.Interop.PowerPoint
Public Class AspNetPowerPointMultiSlides
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'*** Constant ***'
Const ppLayoutBlank = 12
Const ppLayoutChart = 8
Const ppLayoutChartAndText = 6
Const ppLayoutClipartAndText = 10
Const ppLayoutClipArtAndVerticalText = 26
Const ppLayoutFourObjects = 24
Const ppLayoutLargeObject = 15
Const ppLayoutMediaClipAndText = 18
Const ppLayoutMixed = -2
Const ppLayoutObject = 16
Const ppLayoutObjectAndText = 14
Const ppLayoutObjectAndTwoObjects = 30
Const ppLayoutObjectOverText = 19
Const ppLayoutOrgchart = 7
Const ppLayoutTable = 4
Const ppLayoutText = 2
Const ppLayoutTextAndChart = 5
Const ppLayoutTextAndClipart = 9
Const ppLayoutTextAndMediaClip = 17
Const ppLayoutTextAndObject = 13
Const ppLayoutTextAndTwoObjects = 21
Const ppLayoutTextOverObject = 20
Const ppLayoutTitle = 1
Const ppLayoutTitleOnly = 11
Const ppLayoutTwoColumnText = 3
Const ppLayoutTwoObjects = 29
Const ppLayoutTwoObjectsAndObject = 31
Const ppLayoutTwoObjectsAndText = 22
Const ppLayoutTwoObjectsOverText = 23
Const ppLayoutVerticalText = 25
Const ppLayoutVerticalTitleAndText = 27
Const ppLayoutVerticalTitleAndTextOverChart = 28

Dim ppApp As New Microsoft.Office.Interop.PowerPoint.Application
Dim ppPres As Presentation
Dim ppSlide1, ppSlide2, ppSlide3, ppSlide4 As Slide
Dim ppName As String = "MyPP/MyPPt.ppt"

ppPres = ppApp.Presentations.Add(1)

ppSlide1 = ppPres.Slides.Add(1, ppLayoutTitle)
ppSlide1.Shapes(1).TextFrame.TextRange.Text = "Welcome To"
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "www.ShotDev.Com" & vbCr & "Version 2010"

ppSlide2 = ppPres.Slides.Add(2, ppLayoutTwoColumnText)
ppSlide2.Shapes(1).TextFrame.TextRange.Text = "www.ShotDev.Com Version"
ppSlide2.Shapes(2).TextFrame.TextRange.Text = "Version 2009" & vbCr & _
"Version 2009" & vbCr & "Version 2009" & vbCr & "Version 2009"
ppSlide2.Shapes(3).TextFrame.TextRange.Text = "Version 2010" & vbCr & _
"Version 2010" & vbCr & "Version 2010" & vbCr & "Version 2010"

ppSlide3 = ppPres.Slides.Add(3, ppLayoutTable)
ppSlide3.Shapes(1).TextFrame.TextRange.Text = "We Love ShotDev.Com"

ppSlide4 = ppPres.Slides.Add(4, ppLayoutTextAndChart)
ppSlide4.Shapes(1).TextFrame.TextRange.Text = "We Love ShotDev.Com"
ppSlide4.Shapes(2).TextFrame.TextRange.Text = "2006" & vbCr & "2007" & vbCr & "2008" & vbCr & "2009" & vbCr & "2010"

ppApp.Presentations(1).SaveAs(Server.MapPath(ppName))
ppApp.Quit()
ppApp = Nothing

Me.lblText.Text = "PowerPoint Created <a href=" & ppName & ">Click here</a> to Download."

End Sub
End Class

Screenshot