daki Novice
19. februar 2019 - 20:17

Afvikling af macro i PowerPoint

Har denne macro i en PowerPoint.
Hvordan får jeg den til at kører i loop indtil jeg lukker filen eller evt. en macro til at starte og stoppe den.
Så jeg har mulighed for at vise/skjule forskellige slides?
Hvordan får jeg den til at springe de slides over, som på tidspunktet for kørslen, er skjult?

Alternativt, kan jeg evt. lave macro i Excel og opdatere slides den vej?

Sub Update()
'  MsgBox "Slide Update start: " & Now
    ActivePresentation.Slides(2).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(3).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(4).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(4).Shapes("Object 3").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(5).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(5).Shapes("Object 3").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(6).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(7).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(7).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(8).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(9).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(10).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(10).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(11).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(12).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(13).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(14).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(15).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(15).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(16).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
'  MsgBox "Slide Update end: " & Now
End Sub
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

Opret Preview

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





Premium
En skærmrevolution er på vej: Her er alt du bør vide om fremtidens mini-LED og micro-LED-skærme
En mindre skærmrevolution er nu under opsejling. Tre nye skærmteknologier kommer med hver deres løfte om vild kontrast, flottere farver og modulære egenskaber.
Computerworld
Overblik: Så meget betaler danske virksomheder i løn til it-medarbejderne - se listerne her
Overblik: Der er meget stor forskel på løn-niveauet for it-medarbejderne i de danske virksomheder. Få overblikket over, hvor lønnen er højest og lavest her.
CIO
The Digital Edge: Claus H. Andersen står i spidsen for at gøre dit indkøb nemmere i Salling Groups 1.500 butikker
Podcast: Salling Groups digitale chef, Claus H. Andersen, er på en digital mission: Det skal være nemmere at handle, nemmere at være kunde og nemmere være forbruger - i alle kædens 1.500 butikker. Hør hvordan den digitale chef arbejder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Dit netværk holder dig tilbage! Sådan gør du Virtual Cloud Network skarpere
I vor tids teknologi er kun én ting konstant: Udviklingen. Vi er midt i en digital disruption, som transformerer alle industrier, alle virksomheder og alle teams. Så hvad gør I? I dette white paper kigger vi nærmere på, hvad det kræver for at få en succesfuld digital transformation. Hvordan du kan tilpasse services på dage i stedet for måneder, fleksibiliteten i at kunne reagere på feedback og muligheder i realtid, og hurtigheden og forudsigelsen til at kunne levere en bedre og mere værdifuld kundeservice.