Création d'une macro pour générer une présentation personnalisée dans Powerpoint

Question

Je souhaite créer une macro pour PowerPoint, afin de générer une présentation personnalisée, contenant toutes les diapositives de ma présentation PowerPoint, mais dans un ordre aléatoire. Comment ferais-je cela? Je veux être capable de l'exécuter et de créer différents spectacles personnalisés à chaque fois.

Il fait 3 ans que je PowerPoint, et la seule expérience que j'ai avec VB était un peu de VB6 en 2004.

Answer 1

Vérifiez l'info here.

Sample:

Sub sort_rand() 

    Dim i As Integer 
    Dim myvalue As Integer 
    Dim islides As Integer 
    islides = ActivePresentation.Slides.Count 
    For i = 1 To ActivePresentation.Slides.Count 
     myvalue = Int((i * Rnd) + 1) 
     ActiveWindow.ViewType = ppViewSlideSorter 
     ActivePresentation.Slides(myvalue).Select 
     ActiveWindow.Selection.Cut 
     ActivePresentation.Slides(islides - 1).Select 
     ActiveWindow.View.Paste 
    Next 

End Sub