Taille de caractères dans commentaires

Bonjour Cap2

Pour modifier la taille et le nom de la police de caractères
de tous les commentaires existants dans tout le classeur :

'---------------------------
Sub Commentaire()
Dim Sh As Worksheet, C As Comment
For Each Sh In Worksheets
For Each C In Sh.Comments
With C.Shape.OLEFormat.Object.Font
.Size = 14
.Name = "Arial"
End With
Next
Next
Set Sh = Nothing: Set C = Nothing
End Sub
'---------------------------


Salutations!



"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news: e8F0TTJ4FHA.1188@TK2MSFTNGP12.phx.gbl...
Bonjour à tous !

Voilà, un p'tit truc tout bête :

Est-il possible de modifier la taille par défaut des caractères des
commentaires (pour les anciens et pour les nouveaux) ?

Merci d'avance de vos réponses et/ou idées

CAP2

Bonjour CAP2,

Dans les propriétés d'affichage (clic-droit sur le
Bureau/Propriétés)/Apparence/ (+Avancées sous XP)/Elément/Info-bulle.
Mais cela modifiera non seulement les caractéristiques par défaut des
commentaires dans Excel, mais également toutes les info-bulles des softs
installés sur ton disque... :-(

Sinon, et en complément de la réponse de Denis, si tu ne souhaites pas
modifier les Propriétés Apparence, tu pourrais utiliser cette proc pour
insérer un commentaire avec la taille de police prédéfinie souhaitée.

Sub zaza()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 12
End With
SendKeys "%IM"
End Sub


ChrisV


"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news:
e8F0TTJ4FHA.1188@TK2MSFTNGP12.phx.gbl...

Bonjour à tous !

Voilà, un p'tit truc tout bête :

Est-il possible de modifier la taille par défaut des caractères des
commentaires (pour les anciens et pour les nouveaux) ?

Merci d'avance de vos réponses et/ou idées

CAP2

Bonjour à tous les deux,

et merci pour vos réponses...

L'idéal autrait été de pouvoir paramétrer ça par défaut pour notre Excel
chéri...

Mais bon, vos 2 réponses me conviendront parfaitement ;o))

A plus, messieurs

CAP2