• Astuces et Tutoriels
  • Pour la Maison & les Études
  • show/hide menu
  • Astuces et Tutoriels
  • Pour la Maison & les Études
  • Astuces et Tutoriels Maison PowerPoint

    Modifier la couleur de la police de tous les textes d’une présentation PowerPoint

    m@rina EST MVP
    par m@rina
    0

    PMG_Hero_HomePremium_955x445

    Si la présentation a été faite correctement, elle a été basée sur un masque, lui-même basé sur un thème contenant un jeu de couleurs. Il suffit donc de modifier la couleur de police dans le masque. Et si la couleur souhaitée ne fait pas partie du masque, on utilisera un jeu de couleurs différent.

    Le problème survient lorsqu’une présentation a été faite « manuellement », c’est à dire si elle n’a pas été faite dans les règles de l’art ! Dans ce cas, il faut une macro.

    Rappel : Un fichier Office qui contient une macro ne peut plus être enregistré avec l’extension en x (pptx pour PowerPoint). Le x est remplacé par un m (comme Macro).
    Un fichier PowerPoint aura donc une extension pptm. Cela est utile uniquement si vous désirez conserver la macro dans le fichier. 

    Création de la macro

    Rappelons qu’il n’y a pas d’enregistreur de macro dans PowerPoint. Si vous n’avez jamais créé de macro, pas de panique ! Voici comment procéder :

    • Appuyez sur le raccourci clavier Alt+F11 afin d’accéder au VBE (Visual Basic Editor).
    • La fenêtre du VBE est divisée en deux parties : la partie gauche liste le nom de vos présentations ouvertes (colonne Projet), la partie droite contiendra les modules dans lequel vous écrirez les macros.

    Sélectionnez à gauche la présentation dans laquelle vous souhaitez modifier la couleur des textes puis dans le menu Insertion, cliquez sur Module. Un module nommé Module1 s’affiche dans la colonne gauche.

    macropol1

    Sélectionnez à présent le code VBA ci-dessous, copiez-le et collez-le simplement dans votre module.

    Sub couleurs()
    Dim diapo, forme
    For Each diapo In ActivePresentation.Slides
         For Each forme In diapo.Shapes
              If forme.TextFrame.HasText Then
                   forme.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
              End If
         Next forme
    Next diapo
    End Sub

    macropol2

    Vous remplacerez les nombres RGB par ceux de la couleur souhaitée.
    Astuce pour trouver le code RGB : dessiner une forme et choisissez la couleur de remplissage pour cette forme. Cliquez sur la liste déroulante Remplissage et choisissez Autres couleurs de remplissage afin d’ouvrir la boîte de dialogue Couleurs. Il vous reste à noter ces trois nombres RGB à reporter dans le code ci-dessus.

    Si vous souhaitez changer uniquement certaines couleurs, il faudra ajouter dans le code une condition portant sur la couleur à modifier (exemple, si la couleur est bleue, alors je veux la couleur rouge) :

    If forme.TextFrame.HasText Then
         If forme.TextFrame.TextRange.Font.Color.RGB = RGB(x, x, x) Then
              forme.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
         End If
    End If

    Utilisation de la macro

    Depuis le VBE : vérifiez que le curseur se trouve dans la macro, et appuyez simplement sur la touche F5.

    Depuis votre présentation : sous l’onglet Affichage, groupe Macros, cliquez sur Macros, sélectionnez la macro puis cliquez sur Exécuter.

    macropol3

     

    articles liés

    Petite présentation de l’équipe qui vous accompagnera dans la découverte d’Office

    Petite présentation de l’équipe qui vous accompagnera dans la découverte d’Office

    Bienvenue  sur « Office On Air », le blog Officiel de l’équipe Microsoft Office France

    Bienvenue sur « Office On Air », le blog Officiel de l’équipe Microsoft Office France

    Démonstration de l'écran Perceptive Pixels

    Démonstration de l'écran Perceptive Pixels