Re: PowerPoint kérdések

[Nits László]

3: VB:

Sub Töröl()
    Dim I As Integer: Dim J As Integer
    Dim oActivePres As Object
    Set oActivePres = ActivePresentation

    With oActivePres
        For I = 1 To .Slides.Count
            If Val(Application.Version) < 10 Then
                ' PowerPoint 97/2000
                For J = 1 To .Slides(I).Shapes.Count
                    .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
                Next J
                .Slides(I).SlideShowTransition.EntryEffect = ppAnimateLevelNone
            Else
                ' PowerPoint 2010
                For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
                    .Slides(I).TimeLine.MainSequence(J).Delete
                Next J
                .Slides(I).SlideShowTransition.EntryEffect = ppAnimateLevelNone
            End If
        Next I
    End With
    Set oActivePres = Nothing
End Sub

üdv.: Nits L.