Is it possible to control font size by vba,in the example workbook you will see what I mean. I tried
Shrink to Fit with no luck,just want max size font and keep data in box. Have about 30 of these cell that
deep font size control. If only one word then font is size11, lot of words as low as 8. So fonts could be 8,9,10,or 11.
Thanks for ideas.
The shrink font will only start when the text overflows the width of the cell. It does not take cell height into account.
One way would be to use a helper textbox shape with Resize shape to fit text set. You could then adjust the fontsize until the textbox size matches or is smaller than cell. Then apply that font size to cell.
Found this code but can't make it go to size 8 ??
Please Login or Register to view this content.
Think I got it by changing font style.
try this 3 formula in H10:H12
=REPT("Test",10)
=REPT("Test",20)
=REPT("Test",30)
Morning Andy
Not sure what you mean,where do I put =REPT("Test",10)
In cells H10:H12, then change selection to fire the event code. you should see all 3 fontsizes then
Sometime I feel so dumb,not sure what you mean.
Do I put =REPT("Test",10) in H10
Do I Put =REPT("Test",20) in H11
Do I Put =REPT("Test",30) in H12
Or do I add to VBA code?
Sorry for not understanding
You add the formula to the sheet. Basically the code you posted will alter the cells H10:H20 based on the length of the text in the cell.
If the text is not long enough then font size 8 will not be applied. Those formula provided strings long enough to set font to 10, 9 and 8.
Attached is an example using the textbox to help decide the font. Enter test text string in F2.
Thanks Andy, that explains it a lot better. Need to find a way to adapt to my workbook. In the example I used one cell but in workbook
I have about 20 cell formatted the size in example. Will have to find a way to insert the text into right cell.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks