Afslutte brugerdefineret diasshow med VBA

du kan alt efter hvor mange presentationer du har kørende bruge følgende kode.

Her lukkes præsentation nr. 2:

application.presentations(2).close

Her lukkes SENEST ÅBNEDE presentation, dog ikke den først startede:

if application.presentations.count >1 then
application.presentations(application.presentations.count).close
end if

Hmmm...

Det ser ikke ud til at virke.
Jeg har lagt følgende ind:
Msgbox (application.presentations.count) og den returnerer altid et 1-tal, uanset om jeg har åbnet et "under-show" eller ej.
Det skal lige siges at de brugerdefinerede shows ligger i samme fil/præsentation, som hoved præentationen.

Sorry - jeg læste det som alternative filer.
Kan du beskrive hvad det er du gerne vil, normalt vil man vise det brugerdefinerede show og bede det vise og returnere.

Meningen er at nogle steder så skal et igangværende brugerdefineret show afsluttes samtidig med at et nyt brugerdefineret skal starte. På samme "hotspot", så det skal laves i VBA.
Jeg mangler også viden om hvordan man starter et navngivent brugerdefineret show vha. VBA

For at afslutte den aktuelle præsentation om det er "hoved" præsentationen eller en brugerdefineret, kan du taste ESC.

Denne kode kan du sende via SendKeys

' lukker aktuel (under) presentation
SendKeys "{Esc}"

Herunder kan du yderligere se hvordan du starter en brugerdef slideshow op med VBA kode

' starter brugerdef. præsentation op
    With ActivePresentation.SlideShowSettings
        .RangeType = ppShowNamedSlideShow
        .SlideShowName = "aaaa"
        .Run
    End With


Håber det brunger dig videre ;0)

SendKeys virker.

Men den anden del virker ikke.
Det den gør er at ændre på opsætningen af hele showet (filen), det som man sætter op under "Indstil diasshow". Men den starter ikke det nye op. Til gengæld starter den brugerdefinerede op næste gang man starter showet, da indstillingerne er blevet ændret...

Koden starter PPS op det ønskede sted, hvis det køres direkte fra VBA-editoren, men hvis den initieres fra et hotspot virker "Run", delen ikke....

Hvilken version af PowerPoint anvender du?

Jeg har lavet et setup således:

Der er oprettet 3 brugerdefinerede shows:
"A" et show som viser ALLE dias
"B" et show som viser dias 2,4,6 og 8
"C" et show som viser dias 3,5,7 og 9

Jeg indstiller præsentationen til at køre show "a"

På ActionButtons på 1. dias, beder jeg den køre koden som så starter et brugerdefineret show op, 1 for "B" og 1 for "C".

På øvrige dias hvor jeg gerne vil have den til at afslutte brugershow, aktivere jeg koden som afslutter det kørende brugerdefinerede show, og starter et andet op. vil jeg tilbage til "A", skal koden kun sende ESC.

ovenstående skulle vist have været skrevet som svar ;0)

Denne kode kan du sende via SendKeys

' lukker aktuel (under) presentation
SendKeys "{Esc}"

Herunder kan du yderligere se hvordan du starter en brugerdef slideshow op med VBA kode

' starter brugerdef. præsentation op
    With ActivePresentation.SlideShowSettings
        .RangeType = ppShowNamedSlideShow
        .SlideShowName = "aaaa"
        .Run
    End With

Jeg bruger PowerPoint 2007

Som jeg har skrevet så har jeg forsøgt koden. Send keys virker, men den anden virker ikke.
Kører jeg koden direkte fra VBA starter præsentationen fint op, men lægger jeg koden ind som kode til en figur, så sættes den brugerdefinerede fint, men den starter ikke showet op...

Interessant.

Jeg kan godt se at det ikke virker i 2007, har siddet med 2003.

Jeg skal prøve at pille lidt ved den, det må da kunne lade sig gøre.

Skulle jeg være lidt fræk, kunne jeg sige du har fået løst dit oprindelige spørgsmål, og retteligen burde resterende del være et nyt spsm ;0)
m.v.h.

Store Stygge...

Beklager den lange ventetid.
har uddelt point og oprettet en tråd med det andet spørgsmål.

Ny tråd her:
http://www.eksperten.dk/spm/880563