Les diapositives du support généré par messetoolkit sont constituées d'un cadre de texte, parfois deux lorsqu'il y a un titre.

Comment faire que tous ces cadres de texte voient la police augmentée à 54 pt?

Comment le faire rapidement ? A la main, il faut pour chaque diapositive sélectionner le cadre de texte et appliquer l'augmentation de la police.

Pour ceux qui voudraient ne pas perdre de temps, et qui sont un minimum à l'aise avec l'informatique, il est possible de recourir à Mistral, ChatGPT ou autre IA de vous expliquer la route à suivre, pas à pas. Voici le résultat de ma requête (au 16 février 2025), sur mistral.ai :

"Pour créer un programme VBA qui augmente la taille de police de tous les objets texte à 54 points dans toutes les diapositives d'une présentation PowerPoint, tu peux utiliser le code suivant. Ce code parcourt chaque diapositive et chaque forme de texte pour appliquer la taille de police souhaitée."

Sub AugmenterTailleTexte()

    Dim pptSlide As Slide

    Dim pptShape As Shape

    ' Parcourir chaque diapositive dans la présentation active

    For Each pptSlide In ActivePresentation.Slides

        ' Parcourir chaque forme dans la diapositive

        For Each pptShape In pptSlide.Shapes

            ' Vérifier si la forme a du texte

            If pptShape.HasTextFrame Then

                ' Vérifier si le cadre de texte a du texte

                If pptShape.TextFrame.HasText Then

                    ' Définir la taille de la police à 54 points

                    pptShape.TextFrame.TextRange.Font.Size = 54

                End If

            End If

        Next pptShape

    Next pptSlide

End Sub

Instructions pour utiliser ce code :

1. Ouvre PowerPoint et appuie sur Alt + F11 pour ouvrir l'éditeur VBA.

2. Dans l'éditeur VBA, insère un nouveau module en cliquant sur Insertion > Module.

3. Copie et colle le code ci-dessus dans le module.

4. Ferme l'éditeur VBA et retourne dans PowerPoint.

5. Exécute le macro en appuyant sur Alt + F8, sélectionne AugmenterTailleTexte, puis clique sur Exécuter.

Ce code va parcourir toutes les diapositives et augmenter la taille de la police de tous les objets texte à 54 points. Il n'y aura ainsi plus qu'à arranger les diapositives pour créer deux diapo au lieu d'une lorsque nécessaire.