Bonjour
Avec cette macro pris sur le net
je peux mettre une police à mes commentaires
Mais comment la modifier pour adapter la taille d un commentaire en fonction du texte qu il contient
Sub Macro5()
Dim sH As Worksheet, cmT As Comment
For Each sH In Worksheets
For Each cmT In sH.Comments
With cmT.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 14
End With
Next cmT
Next sH
End Sub
Avec cette macro pris sur le net
je peux mettre une police à mes commentaires
Mais comment la modifier pour adapter la taille d un commentaire en fonction du texte qu il contient
Sub Macro5()
Dim sH As Worksheet, cmT As Comment
For Each sH In Worksheets
For Each cmT In sH.Comments
With cmT.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 14
End With
Next cmT
Next sH
End Sub
