TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub FlagHiddenSlides()

    Dim oSl As Slide
    For Each oSl In ActivePresentation.Slides
        With oSl
            If .SlideShowTransition.Hidden Then
                ' it's hidden; flag the previous slide
                ' as long as this isn't slide 1
                If .SlideIndex > 1 Then
                    ' and as long as the previous slide itself isn't hidden
                    If Not ActivePresentation.Slides(oSl.SlideIndex - 1).SlideShowTransition.Hidden Then
                        With ActivePresentation.Slides(oSl.SlideIndex - 1)
                            ' Change the 25s in the next line if you want a larger
                            ' or smaller shape
                            With .Shapes.AddShape(msoShape16pointStar, 0, _
                                ActivePresentation.PageSetup.Slideheight - 25, 25, 25)
                                ' Change the color here if you like 
                                .Fill.ForeColor.RGB = RGB(255, 0, 0)
                                ' tag it so we can delete it easily later
                                .Tags.Add "DeleteMe", "YES"
                            End With
                        End With
                    End If
                End If
            End If
        End With
    Next

End Sub

Sub DeleteTheFlagShapes()
    Dim oSl As Slide
    Dim x As Long    
    For Each oSl In ActivePresentation.Slides
        For x = oSl.Shapes.Count To 1 Step -1
            If oSl.Shapes(x).Tags("DeleteMe") = "YES" Then
                oSl.Shapes(x).Delete
            End If
        Next
    Next
End Sub

Sub FlagHiddenSlides()
    Dim oSl As Slide
    For Each oSl In ActivePresentation.Slides
        With oSl
            If .SlideShowTransition.Hidden Then
                With oSl
                    ' Change the 25s in the next line if you want a larger
                    ' or smaller shape
                    With .Shapes.AddShape(msoShape16pointStar, 0, _
                        ActivePresentation.PageSetup.Slideheight - 25, 25, 25)
                        ' Change the color here if you like
                        .Fill.ForeColor.RGB = RGB(255, 0, 0)
                        ' tag it so we can delete it easily later
                        .Tags.Add "DeleteMe", "YES"
                    End With
                End With
            End If
        End With
    Next
End Sub