Pb taille commentaire dans classeur partagé

[coco_lapin]

Bonjour le forum.

A l'ouverture d'un classeur partagé la taille du texte des commentaires de tous les onglets est réinitialisée à 8 et ceux ci deviennent illisibles dans mon application.

Comment peut-on indiquer au classeur partagé de garder la taille du texte des commentaires?

Une solution consisterait, à l'ouverture du classeur, de réinitialiser par macro la taille du texte des commentaires, mais je voudrais éviter cette solution un peu lourde qui doit être réalisé pour chaque onglet.

 

[Marc_du_78]

Bonjour coco lapin,
Ce code peut-il taider ? Je n'en connais pas l'auteur, mais trouvé sur ce Forum.

Possibilité Largeur/Hauteur FIXE en macro évènementielle :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CommentObj As Comment
For Each CommentObj In Me.Comments
With CommentObj.Shape
.Height = 25
.Width = 250
End With
Next
End Sub

Possibilité Largeur/Hauteur VARIABLE (AutoSize) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CommentObj As Comment

For Each CommentObj In Me.Comments
CommentObj.Shape.TextFrame.AutoSize = True
Next
End Sub

Bien à toi.

 

[coco_lapin]

Bonjour Marc_du_78 et le forum.

Merci Marc pour ton code. Cela m'aidera si je suis obligé de réinitialiser à l'ouverture du classeur, mais c'est ce que je veux éviter.

Si je n'ai pas d'autres réponses je serai obligé de passer par là.