Hello

I have some difficulties to succeed to control the size of a "Comment box"
(or shape) attached to a cell... - can you help ?
What I want to do is giving to the Comment "box" the same size than the cell
it is attached to...
I tried through the following code lines:
dim CellToComment as range
set CellToComment = ActiveSheet.range ("A1")
CellToComment..AddComment "This is the comment text"
CellToComment.comment.shape.Width = CellToComment.ColumnWidth
CellToComment.comment.shape.Height= CellToComment.RowHeigh

But the results is not what was expected and seems to depend on another
"factor" ...
Is it a Zoom factor? a Display factor?
For a while it work with the following adjustment...
CellToComment.comment.shape.Width = 2.4 * CellToComment.ColumnWidth
CellToComment.comment.shape.Height= CellToComment.RowHeigh/2.2
but was not correct on another PC...

Thaks for your help
Alan