Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Quick way to "Shrink to Fit"
I often need to shrink columns. Is there a faster way to get to "shrink to
fit" rather than to go into CTRL-1, alignment, shrink to fit? I am using 2007 Thanks in advance, inthestands |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Quick way to "Shrink to Fit"
inthestands -
Select the column or multiple columns, and double-click any column separator (above row 1) except the one on the far left. - Mike http://www.MikeMiddleton.com "inthestands" wrote in message ... I often need to shrink columns. Is there a faster way to get to "shrink to fit" rather than to go into CTRL-1, alignment, shrink to fit? I am using 2007 Thanks in advance, inthestands |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Quick way to "Shrink to Fit"
Mike,
That will just autofit the column width to the text size. The OP wants to use Shrink to fit which shrinks the font to fit into the cell and leaves the column width alone. Sorry inthe stands but I don't know of any quicker way than what you are already doing, Perhaps someone can provide you with a macro or some VBA that will work universally in any worksheet you have open with just the click of a button. HTH Martin "Mike Middleton" wrote in message ... inthestands - Select the column or multiple columns, and double-click any column separator (above row 1) except the one on the far left. - Mike http://www.MikeMiddleton.com "inthestands" wrote in message ... I often need to shrink columns. Is there a faster way to get to "shrink to fit" rather than to go into CTRL-1, alignment, shrink to fit? I am using 2007 Thanks in advance, inthestands |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Quick way to "Shrink to Fit"
You could try code - the following shrinks the font.size by 1
Sub ShrinkFont() Dim Isize As Integer Isize = ActiveCell.Font.size Isize = Isize - 1 With Selection.Font .size = Isize End With End Sub Copy this into your personal workbook and assign a keyboard shortcut and it can be run in any workbook. If you do not have a personal workbook, record a simple macro in a new book and name it personal. This should hide the workbook. Then with another file open type ALT + F11, Ctl +R to open Project explorer, select the personal workbook and copy this into a VBModule Regards Peter "inthestands" wrote: I often need to shrink columns. Is there a faster way to get to "shrink to fit" rather than to go into CTRL-1, alignment, shrink to fit? I am using 2007 Thanks in advance, inthestands |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Quick way to "Shrink to Fit"
I just thought, why not record a macro as you shrinkToFit and follow the
steps above. Using 2003 myself so this is not available. "Billy Liddel" wrote: You could try code - the following shrinks the font.size by 1 Sub ShrinkFont() Dim Isize As Integer Isize = ActiveCell.Font.size Isize = Isize - 1 With Selection.Font .size = Isize End With End Sub Copy this into your personal workbook and assign a keyboard shortcut and it can be run in any workbook. If you do not have a personal workbook, record a simple macro in a new book and name it personal. This should hide the workbook. Then with another file open type ALT + F11, Ctl +R to open Project explorer, select the personal workbook and copy this into a VBModule Regards Peter "inthestands" wrote: I often need to shrink columns. Is there a faster way to get to "shrink to fit" rather than to go into CTRL-1, alignment, shrink to fit? I am using 2007 Thanks in advance, inthestands |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Quick way to "Shrink to Fit" | Excel Worksheet Functions | |||
adding "dictionary" to excel quick-access toolbar | Excel Discussion (Misc queries) | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
Scrolling and quick key shortcuts for a "Drop-Down-List" | Excel Discussion (Misc queries) |