Code Samples And Downloads | Joel's SharePoint Architect Blog

Category : Code Samples and Downloads

Automatically Create Summary Slides in PowerPoint 2010 for Free!

Filed Under : Code Samples and Downloads,Computers and Internet,Development,Training by Joel Jeffery

Aug.13,2010

*UPDATE* Please see part two of this blog post for an updated version that creates a auto summary slides for PowerPoint 2010 with hyperlinks!

Download the Create Summary Slide Macro PowerPoint 2010 slide deck here.

Not strictly SharePoint Architect related, but I cooked this VBA script up whilst working on my latest SharePoint 2010 Developer courseware.

In PowerPoint 2003 and earlier there was a button you could press that would automagically create a Summary Slide or Table of Contents Slide for you based upon slides you’d selected in Slide Sorter.

It got taken away in PowerPoint 2007, and it’s still missing in 2010! So tonight I wrote this macro. Apologies for any errors. It’s very, very late.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' InsertSummary()
''' by Joel Jeffery (http://joelblogs.co.uk) August 2010
''' Creates a Summary Slide for PowerPoint 2010
''' (and probably 2007 too!)
''' Depends: Requires QSortInPlace by Chip Pearson
''' Usage: Select Slides (e.g. in Slide Sorter) and run
''' this macro.
''' License: Creative Commons Public Domain 2010
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub InsertSummary()
    Dim i As Integer
    Dim strSel As String, strTitle As String
    Dim summary As Slide
    
    'Only run if we've got something selected
    If ActiveWindow.Selection.SlideRange.Count > 0 Then
        'Array to hold the order of the slides...
        'We do this or we build the ToC in the order
        'in which the slides were selected :)
        Dim slideOrder() As Integer
        
        'Size this to the number of slides selected
        ReDim slideOrder(1 To ActiveWindow.Selection.SlideRange.Count)
        
        'Collect all the IDs of the selected slides
        For i = 1 To ActiveWindow.Selection.SlideRange.Count
            slideOrder(i) = ActiveWindow.Selection.SlideRange(i).SlideIndex
        Next
        
        'Sort them with the QSort Algorithm
        'By Chip Pearson, www.cpearson.com, chip@cpearson.com
        QSortInPlace slideOrder
                
        'Iterate over the slides in Index order
        For o = 1 To UBound(slideOrder)
            If ActivePresentation.Slides(slideOrder(o)).Shapes.HasTitle Then
                'Build up the ToC Text
                strTitle = ActivePresentation.Slides(slideOrder(o)).Shapes.Title.TextFrame.TextRange.Text
                strSel = strSel & strTitle & vbCrLf
            End If
        Next
        
        'Create the summary slide before the first slide in the selection
        Set summary = ActivePresentation.Slides.Add(slideOrder(1), ppLayoutText)
        'Add the title
        summary.Shapes(1).TextFrame.TextRange = "Module Summary"
        'Add the ToC text
        summary.Shapes(2).TextFrame.TextRange = strSel
    End If
End Sub
  

To the extent possible under law, Joel Jeffery has waived all copyright and related or neighbouring rights to InsertSummary() Macro for PowerPoint 2010. This work is published from United Kingdom. Why am I bothering to licensed this under Creative Commons? Because some folks are selling similar functionality as a PowerPoint Add-In and I think it should be free. Enjoy!

You’ll also need the QSortInPlace method by Chip Pearson.

To use, simply select all the slides you want to use for your summary (for instance, in Slide Sorter view) and run the InsertSummary() macro.