macro pour redimensionner commentaires

[Tohane]

Bonjour,

Je viens de reprendre un fichier deja créé par quelqu'un de mon entreprise, or les commentaires sont mal dimensionner, je souhaiterais savoir s'il est possible via une macro de les redimensionner tous soit automatiquement en fonction du nombres de caractere soi selon une dimension unique?

Merci par avance

 

[ftho]

Re : macro pour redimensionner commentaires

Bonjour,

Tu peux éventuellement ajuster la taille automatiquement selon le contenu via AutoSize

Sub test()
Dim C As Comment
 
For Each C In Sheets("feuil1").Comments
    C.Shape.TextFrame.AutoSize = True
Next
End Sub

 

[Tohane]

Re : macro pour redimensionner commentaires

C parfait merci bcp !