Avatar billede KenneyD71 Nybegynder
29. november 2015 - 20:46 Der er 5 kommentarer og
1 løsning

VBA, Powerpoint 2013, fjern alle Transitions, overgange, animationer

Jeg modtager ret ofte PowerpointPræsentationer der er fyldt med animationer og overgange og der er et helvede når man skal bruge dem og læse dem igennem.

Er der nogle der har en vba-kode der fjerner sådan noget unødigt snavs og blot efterlader de rene slides uden ligegyldige effekter?
30. november 2015 - 09:27 #1
Den lette løsning er at fravælge det i opsætningen:

På fanen Diasshow vælges 'Indstil diasshow'
Sæt flueben i feltet 'Vis uden animationer'
30. november 2015 - 09:28 #2
Hvis du vil have alle animationer fjernet permanent fra præsentationen kan denne makro gøre det:

Sub StripAllBuilds()
    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
                ' Older versions of PowerPoint 97/2000
                ' In each slide set the animation property
                ' of the Shape object to FALSE
                For J = 1 To .Slides(I).Shapes.Count
                    .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
                Next J
            Else
              ' New versions support the Timeline object
                For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
                    .Slides(I).TimeLine.MainSequence(J).Delete
                Next J
            End If
        Next I
    End With
    Set oActivePres = Nothing
End Sub
Avatar billede KenneyD71 Nybegynder
30. november 2015 - 09:46 #3
Tak skal du have Erik.
har du noget, der fjerner alle effekter?
Avatar billede KenneyD71 Nybegynder
30. november 2015 - 09:54 #4
Husk dine point, by the way. :-)
30. november 2015 - 10:08 #5
Hvad får du ikke fjernet med ovennævnte kode?
Avatar billede KenneyD71 Nybegynder
30. november 2015 - 18:34 #6
Der er en overgang imellem dias. Der forsinker skiftet.
Så når jeg bladrer er det noget grafik-pop, som jeg kan fjerne manuelt. Men det kunne være fedt, hvis det kunne gøres enkelt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat