Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


The Baker's Dozen: 13 Productivity Tips for Generating PowerPoint Presentations : Page 2

In this installment of "The Baker's Dozen" you'll get some handy tips on creating Office eye candy: generating PowerPoint output.




Application Security Testing: An Integral Part of DevOps

Tip 2: Creating an Instance of PowerPoint
Kicking off GenPPT is easy; just add a reference to PowerPointTools.dll to your project and then run the following code:

// Create instance of GenPPT PowerPointTools oPPT = new PowerPointTools(); oPPT.LaunchPPT();

The code for LaunchPPT creates new instances for PowerPoint 2003 and Excel. Note that the following method utilizes the object property references to oPPTApp and oExcel, which other methods in the class will also use:

Public Sub LaunchPPT() Me.oPPTApp = New PowerPoint.Application Me.oPPTApp.Visible = False Me.oExcel = New Excel.Application Me.oExcel.Visible = False Me.SlideNumber = 0 End Sub

Tip 3: Starting a New Presentation with a Template and a Title Page
After creating an instance of PowerPoint, you can create a new presentation and specify the template and a title page, using three public methods from GenPPT:

oPPT.SetTemplate("C:\\MyTemplates\\star.pot"); oPPT.BuildTitlePage("2003 Kansas City Chiefs", _ "By Kevin S. Goff"); oPPT.AddPicture("C:\\KCchiefs.gif");

First, the GenPPT code for SetTemplate provides your first exposure to the PowerPoint object model:

Public Sub SetTemplate(ByVal TemplateFilename As String) Me.oPPTPres = Me.oPPTApp.Presentations.Add Me.AddSlide(PowerPoint.PpSlideLayout.ppLayoutTitle) Me.oPPTPres.ApplyTemplate(TemplateFilename)

SetTemplate adds a new presentation and stores an object reference to oPPTPres. The method also calls one of GenPPT's support methods, AddSlide:

Public Sub AddSlide(ByVal oLayout As PowerPoint.PpSlideLayout) ' Increment the active slide number, ' add a new slide based on that number/layout, ' and go to the slide Me.SlideNumber = Me.SlideNumber + 1 oPPTApp.ActivePresentation.Slides.Add( _ Me.SlideNumber, oLayout) oPPTApp.ActiveWindow.View.GotoSlide(Me.SlideNumber) End Sub

Second, the GenPPT code for BuildTitlePage utilizes another internal method called AddText to place text inside predefined shapes for the current slide layout:

Public Sub BuildTitlePage(ByVal MainTitle As String, ByVal SubTitleTemplate As String) Me.AddText("Rectangle 2", MainTitle) Me.AddText("Rectangle 3", SubTitleTemplate) End Sub

Finally, GenPPT contains the AddPicture method, which displays an image on the center of the current slide:

Public Sub AddPicture(ByVal PicFile As String) Dim oBitmap As Bitmap oBitmap = New Bitmap(PicFile)

Figure 1. The opening slide (uses layout style).
Dim PicWidth As Int32 = oBitmap.Width Dim PicHeight As Int32 = oBitmap.Height Dim StartTop As Int32 = (540 - PicHeight) / 2 Dim StartWidth As Int32 = (720 - PicWidth) / 2 Me.oPPTApp.ActiveWindow.Selection.SlideRange. Shapes.AddPicture(PicFile, False, True, _ StartWidth, StartTop) End Sub
So far, this leads to the generation of the first title slide, in Figure 1.

PowerPoint output should not be confused with general business reporting. Each slide should be a synthesized and self-contained unit, and must not reference information on other slides.
As you may have gathered, GenPPT contains wrapper functions so that a developer doesn't have to access the PowerPoint object model directly. However, you may find a time when you need to access the PowerPoint object reference (Table 1) directly. If so, you'll need to add a COM reference to the PowerPoint Object Model Library. I'll show an example of doing this later in the article.

Tip 4: Creating a Text-Only Slide with a Title and a Set of Bullet Points
The next step is to create a table of contents slide with a title at the top and bullet points in the body of the slide. GenPPT must account for a variable-sized list of bullet points, and that some may be indented.

GenPPT provides a method called BuildBulletPage for generating individual slides with bullet point content (see Figure 2). To use this method, create a DataTable with two columns: one for the bullet point text, and an integer column to represent the level of indentation (use 1 for a main bullet point, and increment for each level of indentation when needed).

Figure 2: The opening slide (generating bullet points).

DataTable DtBullets = new DataTable(); DtBullets.Columns.Add("Bullets", typeof(String)); DtBullets.Columns.Add("Indent", typeof(Int32)); DtBullets.Rows.Add("Final AFC West Standings",1); DtBullets.Rows.Add("Offensive Leaders", 1); DtBullets.Rows.Add("Receptions by Receiver", 2); DtBullets.Rows.Add("Receptions by Receiver", 2); DtBullets.Rows.Add("Rushing Yardage Chart", 2); DtBullets.Rows.Add("Division QB Ratings", 2); DtBullets.Rows.Add("Margin of Victory Chart ",1); DtBullets.Rows.Add("Game Photos", 1); oPPT.BuildBulletPage("Table of Contents", DtBullets);

The BuildBulletPage method in GenPPT shown below uses the ppLayoutText slide layout to build a bullet page. The method adds a new slide, sets the slide title, and scans through the DataTable. The method examines the Indent column to set the IndentLevel for each bullet point:

Public Sub BuildBulletPage(ByVal MainTitle As String, _ ByVal DtBulletPoints As DataTable) ' Note the indentlevel property, from the IndentLevel in the ' datatable source Me.AddSlide(PowerPoint.PpSlideLayout.ppLayoutText) Me.AddText("Rectangle 2", MainTitle) Me.oPPTApp.ActiveWindow.Selection.SlideRange.Shapes( _ "Rectangle 3").Select() Dim TextCounter As Int32 = 0 For Each Dr As DataRow In DtBulletPoints.Rows oPPTApp.ActiveWindow.Selection.TextRange.InsertAfter( Dr(0) + Chr(13)) TextCounter += 1 oPPTApp.ActiveWindow.Selection.TextRange.Paragraphs( TextCounter, 1).IndentLevel = (Dr(1)) Next End Sub

Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date