mettre tous les commentaire à la même dimension

  • Initiateur de la discussion Initiateur de la discussion thum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thum

XLDnaute Nouveau
Bjr à tous,
dans ma feuille j'ai fait des commentaires sous forme d'image,mais voilà ,je voudrais que toutes les image soient à la même dimension , soi 14.5 x 9.5 cm (il y en a 185),j'ai trouvai ce code, mais elles sont toutes petite.
VB:
Sub AutoSizeComment()
Dim xwk, xcomment
  On Error Resume Next
  For Each xwk In ThisWorkbook.Worksheets
    For Each xcomment In xwk.Comments
      xcomment.Shape.TextFrame.AutoSize = True
    Next xcomment
  Next xwk
  On Error GoTo 0
End Sub
je n'y connait rien en programation,mais avec ce code peut-on y ajouter les dimensions.
Merci beaucoup de votre aide et d'avance merci
Portez vous bien
 
Bonjour @thum, bonjour le forum

Ce code devrait fonctionner

VB:
Sub AutoSizeComment()
Dim xwk As Worksheet, xcomment As Comment
  On Error Resume Next
  For Each xwk In ThisWorkbook.Worksheets
    For Each xcomment In xwk.Comments
      xcomment.Shape.Height = Application.CentimetersToPoints(14.5)
      xcomment.Shape.Width = Application.CentimetersToPoints(9.5)   
    Next xcomment
  Next xwk
  On Error GoTo 0
End Sub

Bon courage
Cordialement
Alain
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour