Northwind Demo - Aspose.Slides Demos

The sample demo makes use of Northwind database. It covers almost all major features of Aspose.Slides. The demo runs a query on database and generates chart from the fetched data, gets its image and embeds it to slide.

It also shows how to work with text using Aspose.Slides, for example, it finds text inside the template presentation and replaces/updates it with new text which is fetched from the database and changes its formatting.

The other main features that it covers, includes; insertion of images, slide backgrounds, slide show, animation of shapes and working with tables.

Finally, it sends the output presentation to the client browser for downloading.

Choose demo parameters below and click Submit to see how demo generates a PPT or PDF file by utilizing user input and the Northwind database.

Presenter Name:

Company Picnic Date:

April

May 2012

June

Sun

Mon

Tue

Wed

Thu

Fri

Sat

Reporting Location:

Reporting Year:

Reporting Month:

Company WebSite:

Company Name:

Company Address:

Company City:

State:

Zip:

3D Chart:

Type of Chart:

Select Export Type:

PPTPDF

ASP.NET

<%@ Page Language="vb" MasterPageFile="~/tpl/Demo.Master" AutoEventWireup="true" CodeBehind="Default.aspx.vb" Inherits="Aspose.Slides.Northwind.Default" Title="Northwind Demo - Aspose.Slides Demos" %>
<asp:Content ID="Content1" ContentPlaceHolderID="HeaderContent" runat="server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" runat="server">
	<table width="90%" align="center" cellspacing="0" cellpadding="0" border="0">
		<tr>
			<td height="41" valign="top">
				<img src="/Common/images/heading_lft.jpg" width="19" height="41" /></td>
			<td width="100%" class="demos-heading-bg">
				<h2 class="demos-heading-bg">
					&nbsp;Northwind Demo - Aspose.Slides</h2>
			</td>
			<td valign="top">
				<img src="/Common/images/heading_rt.jpg" width="19" height="41" /></td>
		</tr>
	</table>
		<p class="componentDescriptionTxt">
		The sample demo makes use of <strong>Northwind</strong> database. It covers almost
		all major features of <strong>Aspose.Slides</strong>. The demo runs a query on database
		and generates chart from the fetched data, gets its image and embeds it to slide.
	</p>
	<p class="componentDescriptionTxt">
		It also shows how to work with text using <strong>Aspose.Slides</strong>, for example,
		it finds text inside the template presentation and replaces/updates it with new
		text which is fetched from the database and changes its formatting.
	</p>
	<p class="componentDescriptionTxt">
		The other main features that it covers, includes; insertion of images, slide backgrounds,
		slide show, animation of shapes and working with tables.
	</p>
	<p class="componentDescriptionTxt">
		Finally, it sends the output presentation to the client browser for downloading.</p>
	<hr />
	<br />
	<div class="demoContentArea">
		<p class="componentDescriptionTxt">
			Choose demo parameters below and click <b>Submit</b> to see how demo generates a
			PPT or PDF file by utilizing user input and the Northwind database.
		</p>


	<table class="genericTable" cellpadding="2" cellspacing="0">
		<tbody>
			<tr >
				<td>
					<asp:Label ID="Label5" runat="server" Font-Bold="True">Presenter Name:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtPresenterName" runat="server" Width="156">John Doe</asp:TextBox>
				</td>
				<td rowspan="7">
					<div style="width: 100%; text-align: center">
						Company Picnic Date:</div>
					<br />
					<asp:Calendar ID="calPicnicDate" runat="server" BackColor="White" BorderColor="White"
						BorderWidth="1px" Font-Names="Verdana" Font-Size="9pt" ForeColor="Black" Height="190px"
						NextPrevFormat="FullMonth" Width="350px">
						<TodayDayStyle BackColor="#CCCCCC" />
						<NextPrevStyle Font-Bold="True" Font-Size="8pt" ForeColor="#333333" VerticalAlign="Bottom" />
						<DayHeaderStyle Font-Bold="True" Font-Size="8pt" />
						<SelectedDayStyle BackColor="#333399" ForeColor="White" />
						<TitleStyle BackColor="White" BorderColor="Black" BorderWidth="4px" Font-Bold="True"
							Font-Size="12pt" ForeColor="#333399" />
						<OtherMonthDayStyle ForeColor="#999999" />
					</asp:Calendar>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label9" runat="server" Font-Bold="True">Reporting Location:</asp:Label>
				</td>
				<td>
					<asp:DropDownList ID="ddlEmployeeLocation" runat="server" Width="156px">
					</asp:DropDownList>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label10" runat="server" Font-Bold="True">Reporting Year:</asp:Label>
				</td>
				<td>
					<asp:DropDownList ID="ddlReportingYear" runat="server" Width="156px">
						<asp:ListItem Value="1996">1996</asp:ListItem>
						<asp:ListItem Selected="True" Value="1997">1997</asp:ListItem>
						<asp:ListItem Value="1998">1998</asp:ListItem>
					</asp:DropDownList>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label11" runat="server" Font-Bold="True" Height="12px">Reporting Month:</asp:Label>
				</td>
				<td>
					<asp:DropDownList ID="ddlReportingMonth" runat="server" Width="156px">
						<asp:ListItem Value="1">January</asp:ListItem>
						<asp:ListItem Value="2">Febuary</asp:ListItem>
						<asp:ListItem Value="3">March</asp:ListItem>
						<asp:ListItem Value="4">April</asp:ListItem>
						<asp:ListItem Value="5">May</asp:ListItem>
						<asp:ListItem Value="6">June</asp:ListItem>
						<asp:ListItem Value="7">July</asp:ListItem>
						<asp:ListItem Value="8">August</asp:ListItem>
						<asp:ListItem Value="9">September</asp:ListItem>
						<asp:ListItem Value="10">October</asp:ListItem>
						<asp:ListItem Value="11">November</asp:ListItem>
						<asp:ListItem Value="12">December</asp:ListItem>
					</asp:DropDownList>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label6" runat="server" Font-Bold="True">Company WebSite:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyWebSite" runat="server">www.aspose.com</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label4" runat="server" Font-Bold="True">Company Name:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyName" runat="server" Width="156">Aspose</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label3" runat="server" Font-Bold="True">Company Address:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyAddress" runat="server">126 First St.</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label7" runat="server" Font-Bold="True">Company City:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyCity" runat="server">Tyler</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label8" runat="server" Font-Bold="True">State:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyState" runat="server" Width="35px">TX</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label2" runat="server" Font-Bold="True">Zip:</asp:Label>
				</td>
				<td>
					<asp:TextBox ID="txtCompanyZip" runat="server" Width="67px">75704</asp:TextBox>
				</td>
			</tr>
			<tr>
				<td colspan="3">
					<asp:CheckBox ID="ckb3DChart" runat="server" Font-Bold="True" Text="3D Chart: " TextAlign="Left" />
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label13" runat="server" Font-Bold="True">Type of Chart:</asp:Label>
				</td>
				<td>
					<asp:DropDownList ID="ddlTypeOfChart" runat="server" Width="159px">
						<asp:ListItem Value="Area">Area</asp:ListItem>
						<asp:ListItem Selected="True" Value="Bar">Bar</asp:ListItem>
						<asp:ListItem Value="Cube">Cube</asp:ListItem>
						<asp:ListItem Value="Curve">Curve</asp:ListItem>
						<asp:ListItem Value="CurveArea">CurveArea</asp:ListItem>
						<asp:ListItem Value="Line">Line</asp:ListItem>
						<asp:ListItem Value="Pareto">Pareto</asp:ListItem>
						<asp:ListItem Value="Point">Point</asp:ListItem>
						<asp:ListItem Value="Radar">Radar</asp:ListItem>
						<asp:ListItem Value="Scatter">Scatter</asp:ListItem>
						<asp:ListItem Value="Step">Step</asp:ListItem>
					</asp:DropDownList>
				</td>
			</tr>
			<tr>
				<td>
					<asp:Label ID="Label14" runat="server" Font-Bold="True">Select Export Type:</asp:Label>
				</td>
				<td>
					<asp:RadioButtonList ID="rblFileExportType" runat="server" RepeatDirection="Horizontal"
						Width="147px">
						<asp:ListItem Selected="True" Value="PPT">PPT</asp:ListItem>
						<asp:ListItem Value="PDF">PDF</asp:ListItem>
					</asp:RadioButtonList>
				</td>
			</tr>
		</tbody>
	</table>
   <asp:Button ID="btnGenPres" runat="server" Text="Generate Presentation" 
		onclick="btnGenPres_Click" />
</div>    

</asp:Content>

Visual Basic

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Data.OleDb
Imports Aspose.Slides
Imports Aspose.Slides.Pptx
Imports Aspose.Chart

Namespace Aspose.Slides.Northwind
	Partial Public Class [Default]
		Inherits System.Web.UI.Page
		Private cn As OleDbConnection = Nothing
		Private pres As Presentation = Nothing

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
			If (Not Page.IsPostBack) Then
				' Open the database connection
				openDBConnection()
				Dim selectString As String = "SELECT Distinct City FROM Employees"

				' Create an OleDbCommand object
				Dim cmd As New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				Dim reader As OleDbDataReader = cmd.ExecuteReader()

				ddlEmployeeLocation.DataSource = reader
				ddlEmployeeLocation.DataTextField = "City"
				ddlEmployeeLocation.DataValueField = "City"
				ddlEmployeeLocation.DataBind()

				' Close the database connection
				closeDBConnection()
			End If
		End Sub
		Private Sub openDBConnection()
			' Use a string variable to hold the ConnectionString
			Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MapPath(".") & "\db\NorthWind.MDB"
			' Create an OleDbConnection object,
			cn = New OleDbConnection(connectString)
			' Open the connection
			cn.Open()
		End Sub

		Private Sub closeDBConnection()
			' Close the connection
			cn.Close()
		End Sub
		Private Function setupSlideMaster(ByVal pres As Presentation) As Presentation
			' Get slide master
			Dim slide As Slide = pres.Masters(0)
			' Set slide master propertires
			slide.Background.FillFormat.Type = FillType.Gradient
			slide.Background.FillFormat.GradientColorType = GradientColorType.TwoColors
			slide.Background.FillFormat.ForeColor = Color.Beige
			slide.Background.FillFormat.BackColor = Color.DodgerBlue
			Return pres
		End Function

		Protected Sub btnGenPres_Click(ByVal sender As Object, ByVal e As EventArgs)
			' Open the database connection
			openDBConnection()

			' Set location of presentation file.
			Dim fileName As String = MapPath(".") & "\template\demo.ppt"

			' Create presentation object from presentation file
			pres = New Presentation(fileName)

			' Set SlideMaster Properties
			pres = setupSlideMaster(pres)

			' Get references to slides in presentation by position
			Dim slide1 As Slide = pres.GetSlideByPosition(1)
			Dim slide2 As Slide = pres.GetSlideByPosition(2)
			' Create a clone of slide2 and place it into position 3
			pres.CloneSlide(slide2, 3)
			Dim slide3 As Slide = pres.GetSlideByPosition(3)
			Dim slide4 As Slide = pres.GetSlideByPosition(4)
			Dim slide5 As Slide = pres.GetSlideByPosition(5)
			Dim slide6 As Slide = pres.GetSlideByPosition(6)
			Dim slide7 As Slide = pres.GetSlideByPosition(7)
			Dim slide8 As Slide = pres.GetSlideByPosition(8)

			' I have created methods for each slide to help seprate out the code
			slide1 = Me.Slide1(slide1)
			slide2 = Me.Slide2(slide2)
			slide3 = Me.Slide3(slide3)
			slide4 = Me.Slide4(slide4)
			slide5 = Me.Slide5(slide5)
			slide6 = Me.Slide6(slide6)
			slide7 = Me.Slide7(slide7)
			slide8 = Me.Slide8(slide8)
			pres.CloneSlide(slide1, 9)
			Dim slide9 As Slide = pres.GetSlideByPosition(9)
			slide9 = Me.Slide9(slide9)

			' Close the database connection
			closeDBConnection()
			' Construct the response to be sent back to the web browser
			If rblFileExportType.SelectedItem.Text = "PPT" Then
				' Send the file
				pres.Save("demoppt.ppt",Aspose.Slides.Export.SaveFormat.Ppt,Response,False)
				Response.End()
			ElseIf rblFileExportType.SelectedItem.Text = "PDF" Then
				' Send the file
				pres.Save("demopdf.pdf", Aspose.Slides.Export.SaveFormat.Pdf, Response, False)
				Response.End()
			End If
		End Sub
'INSTANT VB NOTE: The parameter slide1 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide1(ByVal slide1_Renamed As Slide) As Slide
			' Introduction
			For j As Integer = 0 To slide1_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide1_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					Dim para As Paragraph = tf.Paragraphs(0)
					If para.Text = "Presenter�s Name" Then
						para.Alignment = TextAlignment.Center
						For Each port As Portion In para.Portions
							port.FontBold = False
							port.FontColor = Color.Black
							port.FontEmbossed = False
							port.FontItalic = False
							port.FontShadow = False
							port.FontUnderline = False
							port.FontHeight = 30
							port.Text = "Presented By: " & txtPresenterName.Text
						Next port
					ElseIf para.Text = "HyperLink" Then
						para.Alignment = TextAlignment.Left
						For Each port As Portion In para.Portions
							port.FontHeight = 20
							port.Text = txtCompanyWebSite.Text
							tf.Links.Clear()
							Dim link As Link = tf.Links.AddLink()
							link.SetInternalHyperlink(slide1_Renamed)
							link.Begin = 0
							link.End = tf.Text.Length
						Next port
					End If
				End If
			Next j

			' Create Shape to Hold Business Info
			Dim shape1 As Shape = slide1_Renamed.Shapes.AddRectangle(1550, 300, 2700, 1200)

			' Set Shape Properties
			shape1.FillFormat.Type = FillType.Solid
			shape1.FillFormat.ForeColor = Color.BlanchedAlmond
			shape1.LineFormat.ForeColor = Color.Black
			shape1.LineFormat.Width = 3
			shape1.FillFormat.Type = FillType.Texture
			shape1.FillFormat.SetTextureStyle(TextureStyle.Newsprint)

			' Add Transition Effects
			shape1.AnimationSettings.EntryEffect = ShapeEntryEffect.StretchAcross

			' Add A TextFrame to the Shape
			shape1.AddTextFrame("Shape1")

			If shape1.TextFrame IsNot Nothing Then
				Dim tfsh1 As TextFrame = shape1.TextFrame
				Dim parash1 As Paragraph = tfsh1.Paragraphs(0)
				parash1.Alignment = TextAlignment.Center
				For Each port As Portion In parash1.Portions
					port.FontBold = False
					port.FontColor = Color.DodgerBlue
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 30
					port.Text = txtCompanyName.Text
				Next port
				' Add second paragraph to the shape
				tfsh1.Paragraphs.Add(New Paragraph(tfsh1.Paragraphs(0)))
				Dim para2sh1 As Paragraph = tfsh1.Paragraphs(1)
				For Each port As Portion In para2sh1.Portions
					port.FontBold = False
					port.FontColor = Color.DodgerBlue
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 30
					port.Text = txtCompanyAddress.Text
				Next port
				' Add third paragraph to the shape
				tfsh1.Paragraphs.Add(New Paragraph(tfsh1.Paragraphs(0)))
				Dim para3sh1 As Paragraph = tfsh1.Paragraphs(2)
				For Each port As Portion In para3sh1.Portions
					port.FontBold = False
					port.FontColor = Color.DodgerBlue
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 30
					port.Text = txtCompanyCity.Text & ", " & txtCompanyState.Text & "  " & txtCompanyZip.Text
				Next port
			End If
			' Add Slide Transition Effect
			slide1_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.FadeSmoothly
			Return slide1_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide2 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide2(ByVal slide2_Renamed As Slide) As Slide
			' Employee Directory
			For j As Integer = 0 To slide2_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide2_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = "Location: " & ddlEmployeeLocation.SelectedItem.ToString()
							Next port
						ElseIf para.Text = "CH1" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 20
								port.Text = "Name"
							Next port
						ElseIf para.Text = "CH2" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 20
								port.Text = "Phone Number"
							Next port
						End If
					End If
				End If
			Next j

			' Find table
			Dim table As Table = Nothing
			For i As Integer = 0 To slide2_Renamed.Shapes.Count - 1
				If TypeOf slide2_Renamed.Shapes(i) Is Table Then
					table = CType(slide2_Renamed.Shapes(i), Table)
					Exit For
				End If
			Next i

			If table IsNot Nothing Then
				Dim selectString As String = "SELECT count(*) FROM Employees where City='" & ddlEmployeeLocation.SelectedItem.Text & "'"

				' Create an OleDbCommand object
				Dim cmd As New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				Dim reader As OleDbDataReader = cmd.ExecuteReader()

				reader.Read()
				Dim recordCount As Integer = CInt(Fix(reader.GetValue(0)))
				reader.Close()

				selectString = "SELECT top 7 LastName, FirstName,HomePhone FROM Employees where " & "City='" & ddlEmployeeLocation.SelectedItem.Text & "' order by LastName"

				' Create an OleDbCommand object
				cmd = New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				reader = cmd.ExecuteReader()

				' Make table contain correct number of rows
				If recordCount = 1 Then
					table.DeleteRow(table.RowsNumber - 1)
				Else
					For i As Integer = 2 To recordCount - 1
						table.AddRow()
					Next i
				End If
				Dim count As Integer = 0
				Do While reader.Read()
					Dim tfName As TextFrame = table.GetCell(0, count).TextFrame
					Dim tfPhoneNumber As TextFrame = table.GetCell(1, count).TextFrame
					If tfName IsNot Nothing Then
						tfName.Paragraphs(0).Portions(0).Text = reader("LastName").ToString() & ", " & reader("FirstName").ToString()
						tfPhoneNumber.Paragraphs(0).Portions(0).Text = reader("HomePhone").ToString()
						' Left justify first column
						tfName.Paragraphs(0).Alignment = TextAlignment.Left
						' Center justify second column
						tfPhoneNumber.Paragraphs(0).Alignment = TextAlignment.Center
						' Disable default bullets
						tfName.Paragraphs(0).HasBullet = False
						tfPhoneNumber.Paragraphs(0).HasBullet = False
						' Set Font Color
						tfName.Paragraphs(0).Portions(0).FontColor = Color.Crimson
						tfPhoneNumber.Paragraphs(0).Portions(0).FontColor = Color.FromArgb(51, 153, 102)
					End If

					count += 1
				Loop
				reader.Close()
			End If
			' Add entry effect to the table
			table.AnimationSettings.EntryEffect = ShapeEntryEffect.Spiral
			' Add Slide Transition Effect
			slide2_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.SplitVerticalOut
			Return slide2_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide3 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide3(ByVal slide3_Renamed As Slide) As Slide
			' Top 5 Employees for the year
			For j As Integer = 0 To slide3_Renamed.Shapes.Count - 1
				Dim holder As Placeholder = slide3_Renamed.Placeholders(j)
				If TypeOf holder Is TextHolder Then
					For Each para As Paragraph In (CType(holder, TextHolder)).Paragraphs
						If para.Text = "Employee Directory" Then
							para.Alignment = TextAlignment.Default
							para.Depth = 0
							para.HasBullet = False
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.Text = "Top 5 Employees for " & ddlReportingYear.SelectedItem.ToString()
							Next port
						End If
					Next para
				End If
				Dim shape As Shape = slide3_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = "Ranked by Order Volume"
							Next port
						ElseIf para.Text = "CH1" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 20
								port.Text = "Name"
							Next port
						ElseIf para.Text = "CH2" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 20
								port.Text = "Order Volume"
							Next port
						End If
					End If
				End If
			Next j
			' Find table
			Dim table As Table = Nothing
			For i As Integer = 0 To slide3_Renamed.Shapes.Count - 1
				If TypeOf slide3_Renamed.Shapes(i) Is Table Then
					table = CType(slide3_Renamed.Shapes(i), Table)
					Exit For
				End If
			Next i
			If table IsNot Nothing Then
				Dim selectString As String = "SELECT top 5 LastName, FirstName, count(Orders.OrderID) as numOrders " & "FROM Employees INNER JOIN Orders ON Employees.EmployeeID = Orders.EmployeeID " & "WHERE  Orders.OrderDate > #01-01-" & ddlReportingYear.SelectedItem.ToString() & "# " & "and Orders.OrderDate < #12-31-" & ddlReportingYear.SelectedItem.ToString() & "# " & "Group by LastName, FirstName " & "order by count(Orders.OrderID) desc"

				' Create an OleDbCommand object
				Dim cmd As New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				Dim reader As OleDbDataReader = cmd.ExecuteReader()
				' Make table contain correct number of rows
				For i As Integer = 2 To 4
					table.AddRow()
				Next i
				Dim count As Integer = 0
				Do While reader.Read()
					Dim tfName As TextFrame = table.GetCell(0, count).TextFrame
					Dim tfPhoneNumber As TextFrame = table.GetCell(1, count).TextFrame
					If tfName IsNot Nothing Then
						tfName.Paragraphs(0).Portions(0).Text = reader("LastName").ToString() & ", " & reader("FirstName").ToString()
						tfPhoneNumber.Paragraphs(0).Portions(0).Text = reader("numOrders").ToString()
						' Left justify first column
						tfName.Paragraphs(0).Alignment = TextAlignment.Left
						' Center justify second column
						tfPhoneNumber.Paragraphs(0).Alignment = TextAlignment.Center
						' Disable default bullets
						tfName.Paragraphs(0).HasBullet = False
						tfPhoneNumber.Paragraphs(0).HasBullet = False
						' Set Font Color
						tfName.Paragraphs(0).Portions(0).FontColor = Color.Crimson
						tfPhoneNumber.Paragraphs(0).Portions(0).FontColor = Color.FromArgb(51, 153, 102)
					End If

					count += 1
				Loop
				reader.Close()

				' Add entry effect to the table
				table.AnimationSettings.EntryEffect = ShapeEntryEffect.Spiral
			End If
			' Add Slide Transition Effect
			slide3_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.WipeRight
			Return slide3_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide4 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide4(ByVal slide4_Renamed As Slide) As Slide
			' Employee of the Year
			Dim selectString As String = "SELECT count(*) FROM Employees"

			' Create an OleDbCommand object
			Dim cmd As New OleDbCommand(selectString, cn)

			' Send the CommandText to the connection, and then build an OleDbDataReader
			Dim reader As OleDbDataReader = cmd.ExecuteReader()

			reader.Read()
			Dim recordCount As Integer = CInt(Fix(reader.GetValue(0)))
			reader.Close()

			selectString = "SELECT LastName, FirstName, Title, City FROM Employees"

			' Create an OleDbCommand object
			cmd = New OleDbCommand(selectString, cn)

			' Send the CommandText to the connection, and then build an OleDbDataReader
			reader = cmd.ExecuteReader()
			Dim LastName As String = "", FirstName As String = "", Title As String = "", City As String = ""

			Dim objRand As New Random()
			' Get a random employee
			Do While City = ""
				Dim intRand As Integer = objRand.Next(0, recordCount - 1)

				For i As Integer = 0 To intRand - 1
					reader.Read()
					LastName = reader("LastName").ToString()
					FirstName = reader("FirstName").ToString()
					Title = reader("Title").ToString()
					City = reader("City").ToString()
				Next i
			Loop
			reader.Close()

			For j As Integer = 0 To slide4_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide4_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Name" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 40
								port.Text = FirstName & " " & LastName
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.FlyFromLeft
						ElseIf para.Text = "Title" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = Title
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.FlyFromRight
						ElseIf para.Text = "Location" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = City
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.FlyFromLeft
						End If
					End If
				End If
			Next j
			' Add Slide Transition Effect
			slide4_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.Dissolve
			Return slide4_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide5 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide5(ByVal slide5_Renamed As Slide) As Slide
			' Item of the month
			Dim selectString As String = "SELECT top 1 ProductName, count([Order Details].ProductID) as numOrders " & "FROM " & "Products INNER JOIN (Orders INNER JOIN [Order Details] " & "ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID " & "WHERE " & "Orders.OrderDate >#" & ddlReportingMonth.SelectedItem.Value.ToString() & "-01-" & ddlReportingYear.SelectedItem.ToString() & "# " & "and Orders.OrderDate < #" & ddlReportingMonth.SelectedItem.Value.ToString() & "-" & DateTime.DaysInMonth(Convert.ToInt16(ddlReportingYear.SelectedItem.ToString()), Convert.ToInt16(ddlReportingMonth.SelectedItem.Value.ToString())).ToString() & "-" & ddlReportingYear.SelectedItem.ToString() & "# " & "and [Order Details].OrderID = Orders.OrderID " & "Group by " & "ProductName " & "order by count([Order Details].ProductID) desc"

			' Create an OleDbCommand object
			Dim cmd As New OleDbCommand(selectString, cn)

			' Send the CommandText to the connection, and then build an OleDbDataReader
			Dim reader As OleDbDataReader = cmd.ExecuteReader()
			Dim ProductName As String = "", NumberOfOrders As String = ""

			Do While reader.Read()
				ProductName = reader("ProductName").ToString()
				NumberOfOrders = reader("numOrders").ToString()
			Loop
			reader.Close()

			For j As Integer = 0 To slide5_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide5_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = "Top Selling Item by Volume for " & ddlReportingMonth.SelectedItem.ToString() & " " & ddlReportingYear.SelectedItem.ToString()
							Next port
						ElseIf para.Text = "Body1" Then
							para.Alignment = TextAlignment.Left
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								If ProductName <> "" Then
									port.Text = "Item Name: " & ProductName
								Else
									port.FontColor = Color.Red
									port.Text = "No Sales Reported for this Time Period."
									para.Alignment = TextAlignment.Center
								End If
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.SplitHorizontalOut
						ElseIf para.Text = "Body2" Then
							para.Alignment = TextAlignment.Left
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								If NumberOfOrders <> "" Then
									port.Text = "Number of Sales for the Month: " & NumberOfOrders
								Else
									port.Text = ""
								End If
								' Add Entry Effect for the Shape
								shape.AnimationSettings.EntryEffect = ShapeEntryEffect.SplitHorizontalIn
							Next port
						End If
					End If
				End If
			Next j
			' Add Slide Transition Effect
			slide5_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.DiamondOut
			Return slide5_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide6 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide6(ByVal slide6_Renamed As Slide) As Slide
			' Item of the Year
			Dim selectString As String = "SELECT top 1 ProductName, count([Order Details].ProductID) as numOrders " & "FROM " & "Products INNER JOIN (Orders INNER JOIN [Order Details] " & "ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID " & "WHERE " & "Orders.OrderDate >#01-01-" & ddlReportingYear.SelectedItem.ToString() & "# " & "and Orders.OrderDate < #12-31-" & ddlReportingYear.SelectedItem.ToString() & "# " & "and [Order Details].OrderID = Orders.OrderID " & "Group by " & "ProductName " & "order by count([Order Details].ProductID) desc"

			' Create an OleDbCommand object
			Dim cmd As New OleDbCommand(selectString, cn)

			' Send the CommandText to the connection, and then build an OleDbDataReader
			Dim reader As OleDbDataReader = cmd.ExecuteReader()
			Dim ProductName As String = "", NumberOfOrders As String = ""

			Do While reader.Read()
				ProductName = reader("ProductName").ToString()
				NumberOfOrders = reader("numOrders").ToString()
			Loop
			reader.Close()

			For j As Integer = 0 To slide6_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide6_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 30
								port.Text = "Top Selling Item by Volume for " & ddlReportingYear.SelectedItem.ToString()
							Next port
						ElseIf para.Text = "Body1" Then
							para.Alignment = TextAlignment.Left
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								If ProductName <> "" Then
									port.Text = "Item Name: " & ProductName
								End If
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.Swivel
						ElseIf para.Text = "Body2" Then
							para.Alignment = TextAlignment.Left
							For Each port As Portion In para.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								If NumberOfOrders <> "" Then
									port.Text = "Number of Sales for the Year: " & NumberOfOrders
								End If
							Next port
							' Add Entry Effect for the Shape
							shape.AnimationSettings.EntryEffect = ShapeEntryEffect.WipeUp
						End If
					End If
				End If
			Next j
			' Add picture of item
			Dim pic1 As Picture = Nothing
			If ProductName = "Gnocchi di nonna Alice" Then
				pic1 = New Picture(pres, MapPath(".") & "/images/Gnocchi.jpg")
			ElseIf ProductName = "Konbu" Then
				pic1 = New Picture(pres, MapPath(".") & "/images/konbu.jpg")
			ElseIf ProductName = "Gorgonzola Telino" Then
				pic1 = New Picture(pres, MapPath(".") & "/images/Gorgonzola.gif")
			End If
			Dim picid1 As Integer = pres.Pictures.Add(pic1)
			Dim pictureWidth As Integer = pres.Pictures(picid1 - 1).Image.Width * 5
			Dim pictureHeight As Integer = pres.Pictures(picid1 - 1).Image.Height * 5
			Dim slideWidth As Integer = slide6_Renamed.Background.Width
			Dim slideHeight As Integer = slide6_Renamed.Background.Height
			Dim pictureFrameX As Integer = Convert.ToInt32(slideWidth \ 2 - pictureWidth \ 2)
			Dim pictureFrameY As Integer = Convert.ToInt32(slideHeight \ 2 - pictureHeight \ 2 + 1000)
			Dim pf As PictureFrame = slide6_Renamed.Shapes.AddPictureFrame(picid1, pictureFrameX, pictureFrameY, pictureWidth, pictureHeight)
			pf.AnimationSettings.EntryEffect = ShapeEntryEffect.ZoomIn
			' Add Slide Transition Effect
			slide6_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.CircleOut
			Return slide6_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide7 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide7(ByVal slide7_Renamed As Slide) As Slide
			' Sales By Contry Chart for the year.
			' Creat the Chart Image
			createChart()

			slide7_Renamed.FollowMasterBackground = False
			slide7_Renamed.Background.FillFormat.BackColor = Color.White

			Dim pic1 As New Picture(pres, MapPath(".") & "/images/chart.gif")
			Dim picid1 As Integer = pres.Pictures.Add(pic1)
			Dim slideWidth As Integer = slide7_Renamed.Background.Width
			Dim slideHeight As Integer = slide7_Renamed.Background.Height
			Dim pf As PictureFrame = slide7_Renamed.Shapes.AddPictureFrame(picid1, 0, 1400, slideWidth, slideHeight - 1400)

			' Add Entry Effect for the Chart Image
			pf.AnimationSettings.EntryEffect = ShapeEntryEffect.BoxOut

			For j As Integer = 0 To slide7_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide7_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								port.Text = "A Graphical Comparison of Sales between"
							Next port
							' Add second paragraph to the shape
							tf.Paragraphs.Add(New Paragraph(tf.Paragraphs(0)))
							Dim para2 As Paragraph = tf.Paragraphs(1)
							For Each port As Portion In para2.Portions
								port.FontBold = False
								port.FontColor = Color.Black
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = True
								port.FontUnderline = False
								port.FontHeight = 25
								port.Text = "the United States and Europe for " & ddlReportingYear.SelectedItem.ToString()
							Next port
						End If
					End If
				End If
			Next j
			' Add Slide Transition Effect
			slide7_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.CutThroughBlack
			Return slide7_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide8 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide8(ByVal slide8_Renamed As Slide) As Slide
			' Company Picnic Promotion
			slide8_Renamed.FollowMasterBackground = False
			slide8_Renamed.Background.FillFormat.Type = FillType.Picture
			Dim pic1 As New Picture(pres, MapPath(".") & "/images/picnic.jpg")
			Dim picid As Integer = pres.Pictures.Add(pic1)
			slide8_Renamed.Background.PictureId = picid

			' Get date from Calendar or just set date 2 weeks into the future
			Dim dtfi As New System.Globalization.DateTimeFormatInfo()
			Dim month, day, year As String
			If calPicnicDate.SelectedDate > DateTime.Now Then
				month = dtfi.GetMonthName(calPicnicDate.SelectedDate.Month)
				day = calPicnicDate.SelectedDate.Day.ToString()
				year = calPicnicDate.SelectedDate.Year.ToString()
			Else
				Dim dt As DateTime = DateTime.Now.AddDays(21)
				month = dtfi.GetMonthName(dt.Month)
				day = dt.Day.ToString()
				year = dt.Year.ToString()
			End If

			For k As Integer = 0 To slide8_Renamed.Placeholders.Count - 1
				Dim holder As Placeholder = slide8_Renamed.Placeholders(k)
				If TypeOf holder Is TextHolder Then
					For Each para As Paragraph In (CType(holder, TextHolder)).Paragraphs
						If para.Text = "Company Picnic Announcement" Then
							For Each port As Portion In para.Portions
								port.FontColor = Color.Red
							Next port
						End If
					Next para
				End If
			Next k

			For j As Integer = 0 To slide8_Renamed.Shapes.Count - 1
				Dim shape As Shape = slide8_Renamed.Shapes(j)
				If shape.TextFrame IsNot Nothing Then
					Dim tf As TextFrame = shape.TextFrame
					If tf.Paragraphs.Count <> 0 Then
						Dim para As Paragraph = tf.Paragraphs(0)
						If para.Text = "Subtitle" Then
							para.Alignment = TextAlignment.Center
							For Each port As Portion In para.Portions
								port.FontBold = True
								port.FontColor = Color.Red
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								port.Text = "The Company Picnic will be held "
							Next port
							' Add second paragraph to the shape
							tf.Paragraphs.Add(New Paragraph(tf.Paragraphs(0)))
							Dim para2 As Paragraph = tf.Paragraphs(1)
							For Each port As Portion In para2.Portions
								port.FontBold = True
								port.FontColor = Color.Red
								port.FontEmbossed = False
								port.FontItalic = False
								port.FontShadow = False
								port.FontUnderline = False
								port.FontHeight = 25
								port.Text = month & " " & day & ", " & year & " at South Lake Shore Park"
							Next port
						End If
					End If
				End If
			Next j

			' Create 3 Shapes to hold text
			Dim shape1 As Shape = slide8_Renamed.Shapes.AddRectangle(400, 1400, 2300, 800)
			shape1.FillFormat.Type = FillType.Texture
			shape1.FillFormat.SetTextureStyle(TextureStyle.PurpleMesh)

			Dim shape2 As Shape = slide8_Renamed.Shapes.AddRectangle(3100, 2200, 2300, 800)
			shape2.FillFormat.Type = FillType.Gradient
			shape2.FillFormat.GradientColorType = GradientColorType.TwoColors
			shape2.FillFormat.GradientFillAngle = 40
			shape2.FillFormat.ForeColor = Color.LightSteelBlue
			shape2.FillFormat.BackColor = Color.LightGreen

			Dim shape3 As Shape = slide8_Renamed.Shapes.AddRectangle(400, 3000, 2300, 800)
			shape3.FillFormat.Type = FillType.Solid
			shape3.FillFormat.ForeColor = Color.Yellow

			' Add a picture of a hotdog
			Dim pic2 As New Picture(pres, MapPath(".") & "/images/hotdog.gif")
			Dim picid1 As Integer = pres.Pictures.Add(pic2)
			Dim pictureWidth As Integer = pres.Pictures(picid1 - 1).Image.Width * 12
			Dim pictureHeight As Integer = pres.Pictures(picid1 - 1).Image.Height * 12
			Dim slideWidth As Integer = slide8_Renamed.Background.Width
			Dim slideHeight As Integer = slide8_Renamed.Background.Height
			Dim pf As PictureFrame = slide8_Renamed.Shapes.AddPictureFrame(picid1, 3400, 3200, pictureWidth, pictureHeight)

			shape1.AddTextFrame("Shape1")

			' Add text to the shapes
			If shape1.TextFrame IsNot Nothing Then
				Dim tf As TextFrame = shape1.TextFrame
				Dim para As Paragraph = tf.Paragraphs(0)
				para.Alignment = TextAlignment.Center
				For Each port As Portion In para.Portions
					port.FontBold = False
					port.FontColor = Color.Green
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 20
					port.Text = "Fun for the Whole Family!"
				Next port
			End If

			shape2.AddTextFrame("Shape2")

			If shape2.TextFrame IsNot Nothing Then
				Dim tf As TextFrame = shape2.TextFrame
				Dim para As Paragraph = tf.Paragraphs(0)
				para.Alignment = TextAlignment.Center
				For Each port As Portion In para.Portions
					port.FontBold = False
					port.FontColor = Color.DodgerBlue
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 20
					port.Text = "Live Entertainment!"
				Next port
			End If

			shape3.AddTextFrame("Shape3")

			If shape3.TextFrame IsNot Nothing Then
				Dim tf As TextFrame = shape3.TextFrame
				Dim para As Paragraph = tf.Paragraphs(0)
				para.Alignment = TextAlignment.Center
				For Each port As Portion In para.Portions
					port.FontBold = False
					port.FontColor = Color.Purple
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 20
					port.Text = "Catered"
				Next port
				' Add second paragraph to the shape
				tf.Paragraphs.Add(New Paragraph(tf.Paragraphs(0)))
				Dim para2 As Paragraph = tf.Paragraphs(1)
				For Each port As Portion In para2.Portions
					port.FontBold = False
					port.FontColor = Color.Purple
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 20
					port.Text = "by"
				Next port
				' Add third paragraph to the shape
				tf.Paragraphs.Add(New Paragraph(tf.Paragraphs(0)))
				Dim para3 As Paragraph = tf.Paragraphs(2)
				For Each port As Portion In para3.Portions
					port.FontBold = False
					port.FontColor = Color.Purple
					port.FontEmbossed = False
					port.FontItalic = False
					port.FontShadow = True
					port.FontUnderline = False
					port.FontHeight = 20
					port.Text = "Ed's Catfish Saloon!"
				Next port
			End If
			' Set Entry Effects
			slide8_Renamed.Background.AnimationSettings.EntryEffect = ShapeEntryEffect.StretchAcross
			slide8_Renamed.Background.AnimationSettings.AnimationOrder = 1
			shape1.AnimationSettings.EntryEffect = ShapeEntryEffect.Swivel
			shape1.AnimationSettings.AnimationOrder = 2
			shape2.AnimationSettings.EntryEffect = ShapeEntryEffect.Wedge
			shape2.AnimationSettings.AnimationOrder = 3
			shape3.AnimationSettings.EntryEffect = ShapeEntryEffect.Dissolve
			shape3.AnimationSettings.AnimationOrder = 4
			pf.AnimationSettings.EntryEffect = ShapeEntryEffect.Spiral
			pf.AnimationSettings.AnimationOrder = 5
			' Add Slide Transition Effect
			slide8_Renamed.SlideShowTransition.EntryEffect = SlideTransitionEffect.Wedge
			Return slide8_Renamed
		End Function

'INSTANT VB NOTE: The parameter slide9 was renamed since Visual Basic will not allow parameters with the same name as their enclosing function or property:
		Private Function Slide9(ByVal slide9_Renamed As Slide) As Slide
			' Closeing Slide
			' Clone of first slide
			Return slide9_Renamed
		End Function
		Private Sub createChart()
			' Create a new Chart
			Dim Chart1 As New Chart.Chart()

			' Determine if 3D Chart is selected
			If ckb3DChart.Checked Then
				Chart1.ChartArea.IsThreeD = True
				Chart1.ChartArea.ThreeDDepth = 200
			Else
				Chart1.ChartArea.IsThreeD = False
			End If

			' Make Chart Area fully non-see though
			Chart1.ChartArea.Transparence = 255

			' Set background color for the Chart
			Chart1.ChartArea.GradientType = GradientType.HorizontalCenter
			Chart1.ChartArea.GradientBackColor = Color.PowderBlue
			Chart1.ChartArea.AxisY.DefaultLabel.Format = "F0"

			' Activate Legend Box
			Chart1.ChartArea.LegendBox.LegendPositionType = LegendPositionType.Left
			Chart1.ChartArea.LegendBox.IsVisible = True

			' Format Axis Lables
			Chart1.ChartArea.AxisX.IntervalType = IntervalType.DateTime
			Chart1.ChartArea.AxisX.DefaultLabel.Format = "MM-yyyy"
			Chart1.ChartArea.AxisX.DefaultLabel.FontAngle = -80
			Chart1.ChartArea.AxisX.DefaultLabel.Color = Color.Blue
			Chart1.ChartArea.AxisY.DefaultLabel.Color = Color.Blue

			Dim selectString As String
			Dim chartType As String = ddlTypeOfChart.SelectedItem.ToString()

			' Get America's Data
			Dim a As New Series()
			a.DefaultDataPoint.BorderWidth = 3
			a.ChartType = CType(System.Enum.Parse(GetType(ChartType), chartType, True), ChartType)
			For i As Integer = 1 To 12
				selectString = "SELECT count(Orders.OrderID) as OrderCount FROM Employees INNER JOIN Orders ON Employees.EmployeeID " & "= Orders.EmployeeID WHERE (((Employees.City)<>'London')) and (Orders.OrderDate) > #" & i.ToString() & "-1-" & ddlReportingYear.SelectedItem.Text & "# and " & "(Orders.OrderDate) < #" & i.ToString() & "-" & DateTime.DaysInMonth(Convert.ToInt16(ddlReportingYear.SelectedItem.Text), i).ToString() & "-" & ddlReportingYear.SelectedItem.Text & "#;"

				' Create an OleDbCommand object
				Dim cmd As New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				Dim reader As OleDbDataReader = cmd.ExecuteReader()
				reader.Read()
				' Add point to Chart
				a.DataPoints.Add(New DataPoint(i.ToString(), New DateTime(Convert.ToInt16(ddlReportingYear.SelectedItem.Text), i, 1), CInt(Fix(reader.GetValue(0)))))
				reader.Close()
			Next i
			Chart1.SeriesCollection.Add(a)

			' Get Europe's Data
			Dim l As New Series()
			l.DefaultDataPoint.BorderWidth = 3
			l.ChartType = CType(System.Enum.Parse(GetType(ChartType), chartType, True), ChartType)
			For i As Integer = 1 To 12
				selectString = "SELECT count(Orders.OrderID) as OrderCount FROM Employees INNER JOIN Orders ON Employees.EmployeeID " & "= Orders.EmployeeID WHERE (((Employees.City)='London')) and (Orders.OrderDate) > #" & i.ToString() & "-1-" & ddlReportingYear.SelectedItem.Text & "# and " & "(Orders.OrderDate) < #" & i.ToString() & "-" & DateTime.DaysInMonth(Convert.ToInt16(ddlReportingYear.SelectedItem.Text), i).ToString() & "-" & ddlReportingYear.SelectedItem.Text & "#;"

				' Create an OleDbCommand object
				Dim cmd As New OleDbCommand(selectString, cn)

				' Send the CommandText to the connection, and then build an OleDbDataReader
				Dim reader As OleDbDataReader = cmd.ExecuteReader()
				reader.Read()
				' Add point to Chart
				l.DataPoints.Add(New DataPoint(i.ToString(), New DateTime(Convert.ToInt16(ddlReportingYear.SelectedItem.Text), i, 1), CInt(Fix(reader.GetValue(0)))))
				reader.Close()
			Next i
			Chart1.SeriesCollection.Add(l)

			' Assign Legend Box series names
			Chart1.ChartArea.LegendBox.LegendItems(0).Name = "United States"
			Chart1.ChartArea.LegendBox.LegendItems(1).Name = "Europe"

			' Specifies  image file name and path of the chart.
			Dim imgPath As String = MapPath(".") & "\images"
			' Save the Chart Image
			Chart1.Save(imgPath & "\chart.gif", ImageFormat.Gif)
		End Sub
	End Class
End Namespace