Avatar billede Falentin Seniormester
11. november 2020 - 16:05

Active slide i Powerpoint?

Hej
Jeg har følgende skript, der bruges som nedtælling på en bestemt slide. Desværre skal man angive hvilket slidenummer det drejer sig om. Jeg ønsker at skriptet virker på det aktive slide.

Den fulde kode er:
Dim time As Date
Dim count As Long

MsgBox ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

time = Now()
count = 180 'Minut is 60 secounds
time = DateAdd("s", count, time)

    Do Until time < Now()
        DoEvents
        ActivePresentation.SlideShowWindow.View.Slide.SlideIndex.Shapes("timerShape").TextFrame.TextRange.Text = Format((time - Now()), "hh:mm:ss")
    Loop
   
'go to next slide
ActivePresentation.SlideShowWindow.View.Next

---------------------------------

Jeg tænker, at der er i følgende kodestump, hvor der skal være henvisning til aktive slide:

ActivePresentation.SlideShowWindow.View.Slide.SlideIndex.Shapes("timerShape").TextFrame.TextRange.Text = Format((time - Now()), "hh:mm:ss")

Nogen, der kan hjælpe?
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
Kurser inden for grundlæggende programmering

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