ajuster la tailles des commentaires

[Guilhem]

Bonjours,
Je fais quelque teste pour voir ce que je peut faire avec les commentaires en me basant sur des code trouves sur le forum, et je bloque lorsque je veux modifier la taille du commentaire:


Cells(4, 1).ClearComments
Cells(4, 1).Select
Cells(4, 1).AddComment
Cells(4, 1).Comment.Text Text:="bla"
Cells(4, 1).Comment.Visible = False
Cells(4, 1).Comment.Shape.Select
Selection.AutoSize = True

j'ai aussi teste la construction du code par excel lui meme mais ca ne marche:
Selection.ShapeRange.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.28, msoFalse, msoScaleFromTopLeft

 

[tototiti2008]

Re : ajuster la tailles des commentaires

Bonjour Guillem,
Cells(4, 1).ClearComments
Cells(4, 1).Select
Cells(4, 1).AddComment
Cells(4, 1).Comment.Text Text:="bla"
Cells(4, 1).Comment.Visible = False
Cells(4,1).Comment.Shape.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft

 

[BOISGONTIER]

Re : ajuster la tailles des commentaires

bonjour,

With Cells(4, 1)
 If .Comment Is Nothing Then
   .AddComment
   .Comment.Text Text:="Ceci est un commentaire..."
   .Comment.Shape.TextFrame.AutoSize = True
   .Comment.Visible = False
 End If
End With

JB
Formation Excel VBA JB

 

[Guilhem]

Re : ajuster la tailles des commentaires

On ce sent pas super malin quand on voit la solution....


merci les gas!!