Grow or Shrink Font

Sometimes I don't want to change my zoom (maybe because of a lot of graphics) but I do want to shrink or grow my font size, and I have a mixture of all different sizes, so want to change them all up or down by the same percentage. I'm not finding a solution on the internet, so hope someone here has developed a solution, or can help me work toward one.

Hello, Is this in excel, inside a cell ?!

I wouldn't recommend this approach.

As you'd need to store each of original font size, if you want to revert back font size.
You may be able to use VBA UNDO class module method found in link.
http://www.jkp-ads.com/Articles/UndoWithVBA00.asp

And code will need to loop through each cell to find it's font size and then adjust. Not very efficient and may take very long time.

As well, how would you handle any objects within the workbook? Should each object's member's font size be changed as well?

Rather than taking this approach, I'd suggest opening same workbook in 2 windows and have zoom on one and no zoom on the other.
Or use of accessibility tool.

I'd really just want to grow or shrink the font in the various cells. I can do that on a case by case basis, but when we're talking about a spreadsheet of thousands of lines, with fonts of varying sizes, and I want to shrink it all at one shot, but NOT make it all the same font size, it can be incredibly time consuming.

I would suggest that the best way to approach this (other than just not doing it ) would be to use styles on all the cells whose font sizes you need to change. That way you can simply manipulate the font size for the styles rather than each cell.

I'm not familiar with styles as it applies to Excel.

You can check out in Home -> Styles (Conditional formatting, Format as Table & Cell Styles)

They are similar to styles in Word. All cells in Excel actually default to the Normal cell style but you can apply styles that specify different combinations of formatting. It may be worth your while reading this- http://www.jkp-ads.com/Articles/styles01.asp

than_gold and xlnitwit, I thank you both for pointing me in the right direction. I'll start reading and learn to resolve my issue with style.

Jomili, Welcome. you can add reputation if we help you!!

The Style option really didn't give me the flexibility I needed so I came up with this quick and dirty version. So far it seems to work just fine for Excel. I'm interested in making the equivalent for Word if someone wants to help me with that, since I'm not really familiar with coding in Word (for instance, Word doesn't traditionally have cells).

Please Login or Register  to view this content.

Hi jomili ,
In word you can see styles in Home tap. Are you trying to change the fonts in tables in word?
word_style.PNG

In general I don't change fonts in tables very often, so mainly text that's compiled from various sources. Just like with Excel, I often have a mixture of all different sizes, and they need to stay proportionally the same, so I'd really want to change them all up or down by the same percentage. My macro above does that for Excel, so I'd like a similar capability for Word.

Can you please provide sample word file?

Sure. Every case is different, but this one is representative. Notice there are multiple font sizes. If I had an hour I could go through and reduce or change them all to the way I like, but I don't have an hour, I have maybe 5 minutes and have to move on to something else. So, I want to shrink all the text by about 30% (I'd have to play with it to get the right mix) while keeping the graphics the way they are. Since there are multiple styles in use going the style route doesn't satisfy.

Okay, I think I've found my Word solution. The Word commands are really simple, Grow and Shrink. This isn't the finished product, but it's a start:

Please Login or Register  to view this content.