Powerpoint presentatie met aangepaste voorstellingen

[Sickbock]

Ik heb een Powerpoint presentatie met daarin een aantal aangepaste diavoorstellingen. Nu heb ik een aantal macro’s die elk een aangepaste diavoorstelling starten (zie hieronder). Hoe kan ik een macro maken waarmee ik meerdere aangepaste diavoorstellingen achter elkaar kan presenteren? Dus achereenvolgens macro1 en daarna macro2 afwerken?

Sub macro1()

With ActivePresentation.SlideShowSettings

    .RangeType = ppShowNamedSlideShow
    .SlideShowName = "pres1"
    .Run
 
End With

End Sub

Sub macro2()

With ActivePresentation.SlideShowSettings
    .RangeType = ppShowNamedSlideShow
    .SlideShowName = "pres2"
    .Run
    
End With

End Sub

 

[HSV]

Zoiets.

sub hsv()
 macro1
 macro2
end sub

Maar misschien werkt onderstaande ook.

sub macro1()
With ActivePresentation.SlideShowSettings
    .RangeType = ppShowNamedSlideShow
    .SlideShowName = "pres1"
    .Run
    .SlideShowName = "pres2"
    .Run
End With
End Sub

 

[Sickbock]

Beste HSV

Bedankt voor je reactie. Om eerlijk te zijn had ik dit ook al geprobeerd met een negatief resultaat. Het probleem is, dat in beide gevallen, na vertonen van de aangepaste diavoorstelling pres1 een zwart scherm verschijnt en aangepaste diavoorstelling pres2 niet wordt opgestart. Dit is ook juist de reden dat ik deze vraag heb gesteld.