Appliquer la diapositive principale à plusieurs powerpoints

Question

Je suis assez nouveau à ce sujet. J'ai un tas de présentations PowerPoint auxquelles j'aimerais appliquer une diapositive principale. Tous les powerpoints sont dans les sous-dossiers d'un dossier (si cela a du sens)

Donc, si quelqu'un peut aider avec le code, il serait grandement apprécié. le code doit:

1. Ouvrir FileDialog je peux choisir le dossier (Ihave le code ci-dessous)

   Sub ShowFileDialog() 
   
   Dim dlgOpen As FileDialog 
   
   Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen) 
   
   With dlgOpen 
   
       .AllowMultiSelect = True 
   
       .Show 
   
   End With 
   
   End Sub 
   

2. Rechercher les powerpoints dans le dossier et pour chaque ppt:

   • Supprimer le modèle principal actuel (supprimer les liens)

   • Appliquer le nouveau maître modèle

   • sauver & près

espoir qui fait sens. Le modèle principal actuel est enregistré sous la forme d'un fichier appelé "slidemaster". J'utilise MS powerpoint 2010.

Answer 1

Je ne sais pas ce que vous entendez par « supprimer les liens » mais d'appliquer un modèle différent, vous souhaitez ouvrir une présentation, puis:

ActivePresentation.ApplyTemplate sTemplate 

où sTemplate = plein chemin d'accès au fichier POTX contenant votre modèle.

Cette page sur mon site PPTFAQ explique comment faire quelque chose à tous les fichiers dans un dossier qui correspond à une spécif_fichier:

Lot: Faire quelque chose à tous les fichiers dans un dossier http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

Dans ce cas, "Quelque chose" exécuterait la ligne de code ci-dessus puis enregistrer le fichier.