Comment utiliser VBA et macro pour changer des polices

Instructions

1. Appuie sur le "Alt" et "F11" clé dans le programme que vous souhaitez modifier les polices. Par exemple, Microsoft Word, Excel ou PowerPoint. Cela ouvre l'éditeur Visual Basic (VBE).

2. Cliquer sur "Insérer" sur la barre d'outils, puis cliquez sur "Module."

3. Coupez et collez le code suivant dans la fenêtre vide:

   Sous ChangeFontTo ()

   '

   «Macro ChangeFontTo

   '

   
   
   
   

   Avec Selection.Font
   .Name = "Times New Roman"
   .Taille = 11
   .Barré = Faux
   
   
   
   .Exposant = False
   .Indice = False
   .OutlineFont = False
   .Ombre = False
   .Souligné = xlUnderlineStyleNone
   .ThemeColor = xlThemeColorLight1
   .TintAndShade = 0
   .ThemeFont = xlThemeFontNone
   End With

   End Sub

4. Changer le nom de la police à ce que la police vous le désirez. Par example, " .name = "Comic Sans"" au lieu de " .name = "Times New Roman"."

• Vous pouvez également modifier d'autres caractéristiques dans le code pour l'adapter à vos besoins. Par exemple, changer la taille 11 à la taille = = 12 va changer le texte à partir d'une taille de police de 11 à une taille de police de 12. Pour les autres caractéristiques, modifiez la ligne "Vrai" si vous voulez afficher une certaine caractéristique. Par exemple, pour tourner sur Barré, le changement ".Strikethrough = False" à ".Strikethrough = True."