Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 !

T

thum

Guest
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…