Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for wrapping text
I need to wrap text in only those cells where the text won't fit on the
printed page. Here is how I see it. If the text of a cell extends beyond 15 inches(arbitrary length) (or beyond Column BD) then wrap it to fit within one cell. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for wrapping text
If we have rows of standard width, it is easy to determine if the text fits
neatly in that cell or if it "spills over" into its right-most neighbor(s). For example, say we want to know if the text in A1 fits in A1 or spills over. We: 1. copy A1 to an un-used row, say A100. 2. store the row height 3. turn on text wrapping for cell A100 4. autofit row 100 5. re-examine the row height If Excel had to increase the row height, then the text did not fit. This means that the original text spilled over in A1: Sub Macro1() Range("A1").Select Selection.Copy Range("A100").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.WrapText = True Rows("100:100").Select Selection.Rows.AutoFit MsgBox (Rows("100:100").Height) End Sub Perhaps this shabby little trick can help you. -- Gary''s Student - gsnu200818 "suestew" wrote: I need to wrap text in only those cells where the text won't fit on the printed page. Here is how I see it. If the text of a cell extends beyond 15 inches(arbitrary length) (or beyond Column BD) then wrap it to fit within one cell. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for wrapping text
You have a choice. WrapText will increase the height of a cell to fit the
text in, and AutoFit will increase the width of the cell to fit it in. With WrapText you can preset the width of the column to have some control over how man lines actually wrap. You can apply it to a single cell or multiple cells in a range. Here is some sample Syntax: ActiveSheet.Column("B").AutoFit ActiveSheet.Range("B2").WrapText = True For more detail refer to the VBA help file in the VB editor. "suestew" wrote: I need to wrap text in only those cells where the text won't fit on the printed page. Here is how I see it. If the text of a cell extends beyond 15 inches(arbitrary length) (or beyond Column BD) then wrap it to fit within one cell. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I prevent a long string of text from wrapping in a text fil | Excel Discussion (Misc queries) | |||
text wrapping when text is pasted in excel | Excel Discussion (Misc queries) | |||
Issues with wrapping Excel text macro | Excel Programming | |||
I am using wrap text in excel, so why isn't all my text wrapping? | Excel Discussion (Misc queries) | |||
Text Wrapping | Excel Worksheet Functions |