TPE

Tavvafi@gmail.com

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

Sub SpinEm()
    Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In ActivePresentation.Slides
        If IsEven(oSl.SlideIndex) Then
            Set oSh = FirstImage(oSl)
            If Not oSh Is Nothing Then
                oSh.IncrementRotation 180
            End If
        End If
    Next
End Sub

Function IsEven(lInput As Long) As Boolean
    If lInput / 2 = lInput \ 2 Then
        IsEven = True
    Else
        IsEven = False
    End If
End Function

Function FirstImage(oSl As Slide) As Shape
    Dim oSh As Shape
    For Each oSh In oSl.Shapes
        If oSh.Type = msoPicture Then
            Set FirstImage = oSh
            Exit Function
        End If
    Next

End Function