Mise en forme d'un commentaire par macro

[ripou37]

Bonjour à tous,

Je vous sollicite pour une macro (sans doute toute bête) sur laquelle je bute.

Il faudrait simplement que tous les commentaires d'un classeur se dimensionnent automatiquement (plutôt que je clique sur chacun d'entre eux en permanence pour que tout soit lisible ...)
Il y a un exemple en pièce jointe, quelqu'un pourrait m'aider ?

Merci encore

Bien cordialement

Ripou37

 

[Roland_M]

Re : Mise en forme d'un commentaire par macro

bonsoir,

tu mets ce code dans un module et tu tapes F5 pour l'exécuter !

Sub RedimCommentaires1() 'de toutes les feuilles
Dim Sh As Worksheet, Comm As Comment
For Each Sh In Worksheets
    For Each Comm In Sh.Comments
        Comm.Shape.OLEFormat.Object.AutoSize = True
    Next
Next
Set Sh = Nothing: Set Comm = Nothing
End Sub