Excemple de Macro VBA pour formater les commentaires dans une cellule

Par défaut, les commentaires de la version actuelle d’Excel sont formatés dans la police TAHOMA et la taille de police 8. Si vous n’aimez pas ce formatage et que vous souhaitez reformater tous vos commentaires dans votre tableau, démarrez la macro .

Sub CommentsFormat ()

Dim Komm As Comment

     For Each Komm In ActiveSheet.Comments

         With Komm.Shape.TextFrame.Characters.Font

          .Name = “Arial”

          .Size = 10

         End With

     Next com

End Sub

Tous les commentaires de la feuille de calcul sont déterminés dans une boucle For Each. Adressez ensuite le commentaire en allant de l’extérieur vers l’intérieur, de sorte que l’objet Shape soit adressé en premier, qui représente d’abord la forme extérieure du commentaire. Ensuite, l’objet TextFrame est adressé, qui s’occupe de l’alignement du commentaire. L’objet Characters est maintenant adressé, ce qui représente les caractères dans le cadre de texte d’un commentaire. Maintenant la seule chose qui manque est l’objet Font via lequel vous voulez la police et on  Peut définir la taille de la police du commentaire.

Si vous souhaitez apporter la modification dans toutes les tables de votre classeur, développez la dernière solution et démarrez la macro .

Sub FormatCcommentaires ()

Dim Komm As Comment

Dim feuillCall As Worksheet

For Each Sheet In ActiveWorkbook.Worksheets

     For Each Komm In Worksheets(Sheet.Name).Comments

         With Komm.Shape.TextFrame.Characters.Font

          .Name = "Arial"

          .Size = 10

         End With

     Next com

Next sheet

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x