Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hox to control Comment Shape Sizes?
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hox to control Comment Shape Sizes?
Here is the solution to my own problem...
In fact Using ColumnWidth was not a good idea Better to use Cell.Width that return the value in number of points rather than a value linked to Characters... Also here is the right way to proceed: dim CellToComment as range set CellToComment = range("A1") CellToComment.AddComment "Texte du Commentaire" CellToComment.comment.shape.width = CellToComment.Width CellToComment.comment.Height = CellToComment.Height .... @+ "Alain79" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing Comment box shape by default | Excel Discussion (Misc queries) | |||
In excel spreadsheet my comment boxes change sizes randomly why? | Excel Worksheet Functions | |||
Why oh why are my comment boxes changing shape? | New Users to Excel | |||
Combo Box Control keeps changing sizes | Excel Worksheet Functions | |||
changing comment indicator size or shape | Excel Worksheet Functions |