Code Samples and Downloads – JoelBlogs – Joel Jeffery's Microsoft 365 Blog

Welp, this is embarrassing. ¯\_(ツ)_/¯

I’ve been writing PowerShell scripts for SharePoint for a very long time now.

And several times in every project, I find myself wanting to select just a specific subset of columns for use or display… or something.

And every time, like a doofus, I Get-PnPListItem, then iterate around each Item, picking out individual fields from FieldValues, and adding to a PSCustomObject.

Like this:

Get-PnPListItem -List Lists/MyList | % { [PSCustomObject]@{"Column1"=$_.FieldValues.Column1; "Column2"=$_.FieldValues.Column2; } }

And so on.

For years.

Like I say, like a doofus.

Anyway. Last week, I was wondering if I could improve on that. I mean, at least I’m not one of those guys who has to invoke Add-Member for each field for each item. You know who you are.

Anyway.

The completely-obvious-in-hindsight approach I can now share with you is this: You can cast FieldValues as a HashTable.

Get-PnPListItem -List Lists/MyList | % { [HashTable] $_.FieldValues } | Select Column1, Column2;

If you ever need to pull out a people column, MMS or lookup, you’ll need to use an expression. Something like this should do:

Get-PnPListItem -List Lists/MyList | % { [HashTable] $_.FieldValues } | Select Column1, Column2, @{"Name"="Person1";"Expression"={$_.Person1.LookupValue}};

I can’t believe I’ve been playing this game on idiot mode for so long.

Here’s a slightly optimised version that obviates the Where-Object (%):

[HashTable[]] (Get-PnPListItem -List Lists/MyList).FieldValues | Select Column1, Column2, @{"Name"="Person1";"Expression"={$_.Person1.LookupValue}};

SMH.

*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 (https://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, [email protected]
        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.

Here’s the result:

One bullet point bearing the title of each slide you include.

Enjoy!

Auto Summary Slide PowerPoint

SharePoint PowerShell Tip #1 – Select-Object and FieldValues

Automatically Create Summary Slides in PowerPoint 2010 for Free!