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
Datatilsynet vil ikke forholde sig til danske skolers brug af Microsoft 365: "Det er lidt ud over det normale pensum"
Interview: Datatilsynet vil ikke komme med en klar anbefaling til, om danske skoler kan bruge udenlandske cloud-løsninger, før man har set konkrete eksempler. “Det er helt bestemt et område, der har vores bevågenhed og hele tiden bliver vurderet.”
Computerworld
Huaweis topchef: Vores nye styresystem er betydelig hurtigere end Android
Huawei er svært tilfreds med selskabets nye operativsystem, der hedder Hongmeng. Systemet er meget hurtigere end Android, lover topchefen, og Huawei vil udbrede det til en masse andre enheder.
CIO
The Digital Edge: Ørsteds CIO Michael Biermann styrker it-afdelingen: "Vi får en masse nye kollegaer med kompetencer, som vi overhovedet ikke har set før. Det er virkeligt spændende"
The Digital Edge: Et styrket fokus på it-arkitektur, agile og værktøjer som design thinking har på få år sat fart på den 780 personer store it-afdeling hos energikoncernen Ørsted. Hør hele historien om transformationen og hvad fremtiden byder direkte fra CIO Michael Biermann.
Job & Karriere
Nye danskkrav får ansøgertallet til at falde på IT-Universitetet
Et nyt sprogkrav, der skal begrænse antallet af internationale studerende, har betydet, at 16 procent færre har søgt om at blive optaget på en bacheloruddannelse på IT-Universitetet i København.
White paper
Sådan tager du kontrollen over dine Office 365 data
Moderne SaaS applikationer såsom Microsoft Office 365 giver flere fordele fremfor den traditionelle softwaremodel, som mange forretningskunder benytter sig af. Den øgede fleksibilitet i den cloud-baserede licensering og tilgængeligheden af shared cloud storage, skaber en ny række udfordringer når det kommer til data management. I dette white paper kigger vi på, hvad du skal gøre for at beskytte og kontrollere dine Office 365 data.