Correction : le solde Google Play continue dêtre refusé
Si le solde Google Play continue d
Il y a quelques jours, un lecteur a demandé s'il existait un moyen d'automatiser la création de présentations PowerPoint à partir de zéro, puis d'ajouter rapidement des diapositives à cette présentation existante. Je pensais que ce script pourrait figurer en bonne place dans la liste des macros PowerPoint les plus utiles.
Comme nous l'avons indiqué dans le passé, PowerPoint n'inclut pas d' enregistreur de macros (contrairement à Excel et Word, qui ont tous deux des enregistreurs intégrés pour Macro). Par conséquent, nous nous retrouvons avec le bon vieux Visual Basic pour Application que nous pouvons utiliser pour créer des macros simples pour automatiser PowerPoint. Il existe d'autres alternatives pour PowerPoint Automation, mais celles-ci dépassent le cadre de ce didacticiel.
Dans le court tutoriel d'aujourd'hui, nous allons passer en revue trois cas d'utilisation différents :
Commençons.
Regardez le ruban. Si vous ne voyez pas l'entrée Développeur dans le menu, avant de commencer votre codage, vous devrez activer l'onglet développeur.
Après avoir rendu le menu Développeur visible sur votre ruban, continuez et appuyez sur Developer , puis appuyez sur le bouton Visual Basic (ou continuez simplement et appuyez sur Alt + F11) pour ouvrir l'IDE Visual Basic.
VBA pour créer une présentation PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA pour insérer des diapositives
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
Macro pour configurer une nouvelle présentation et ajouter des diapositives
Ce serait simplement mélanger les deux extraits décrits ci-dessus.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
Ensuite, vous pouvez consulter notre didacticiel sur la création de formes par programmation dans PowerPoint avec VBA.
Générer une présentation PowerPoint à partir d'Excel
Le dernier cas est que vous souhaitez créer une présentation PowerPoint directement à partir d'une feuille de calcul Excel. Vous pouvez utiliser la même technique à partir de Word et d'autres applications Microsoft 365.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
Profitez-en 🙂
Si le solde Google Play continue d
Résolvez l’erreur 94 Échec du chargement de Hulu sur un PC Windows 10 ou une Xbox One grâce à nos solutions efficaces pour corriger le code d
Apprenez à corriger le code d
Si vous avez une image, une vidéo ou un fichier qui accompagne une note, apprenez à les insérer facilement dans OneNote grâce à notre guide étape par étape !
Obtenez des solutions pour corriger l
Apprenez à citer des sources et à créer une bibliographie dans Google Docs de manière efficace. Suivez ces étapes simples pour améliorer la qualité de vos travaux.
Suivez ici tous les correctifs possibles pour résoudre l
Résolvez le problème lorsque les fonctionnalités de jeu ne sont pas disponibles pour le bureau Windows ou l
Découvrez comment exporter vos messages de chat Discord. Apprenez les meilleures méthodes, y compris l
Obtenez des détails complets sur l'erreur de tête d'impression manquante ou défaillante. Essayez les meilleurs correctifs pour résoudre l'erreur de tête d'impression manquante ou en échec de HP Officejet.