Bonjour
J’utilise des commentaires dans ma feuille de calculs
Je ne m’explique pas pourquoi, la taille de certains de mes commentaires se modifie tout seul
La taille de certains commentaires diminue tant que je ne peux plus les lire
Une seule solution :
Les agrandir un par un pour leur redonner une taille normal
Je souhaiterais réaliser une macro qui me permette de modifier la taille de tous les commentaires de ma feuille d’un seul coup, à une dimension prédéfinie ou mieux qui définie la taille des commentaires en fonction des commentaires situés à l’intérieur.
Si quelqu’un peut me donnez un coup de main dans la réalisation de cette macro
Merci d’avance
Re : Macro pour modifier la taille des commentaires
Bonjour le fil ,
Pour tous les commentaires à la même taille
Code:
Sub test()
Dim MonCommentaire As Comment
For Each MonCommentaire In Sheets("Feuil1").Comments
With MonCommentaire.Shape
.Width = 60
.Height = 100
End With
Next
End Sub
Bonne journée Ajout : Bises Ghislaine, je vais aller voir ce fil d'Hasco Ajout 2 : Effectivement, c'est plutôt
Code:
With MonCommentaire.Shape
.TextFrame.AutoSize = True
End With