Here is a different way of getting upside down text in Excel. It uses WordArt to show the text from any cell upside down.
Some times at work, we get into situations where we need to get some peculiar things done. This was one such for me.
Using the Code
Create a WordArt in Excel and then right click it, select Format WordArt, and change it to look like almost simple plain text. Rotate it 180 degrees, and make it upside down.
Then, open the Visual Basic Editor in MS Excel by using Alt+F11, and enter in the code by double clicking the sheet in which you have the WordArt inserted.
Private Sub Worksheet_Change(ByVal Target As Range)
Shapes(1).TextEffect.Text = Cells(1, 1)
Shapes(1).Width = Len(Cells(1, 1)) * 6.5
The code does two things:
- Take the text in the cell (Row 1, Column 1) and set the WordArt's text to be the same.
- Then, adjust the width of the WordArt according to the string length of the text.
Width adjustment code presently works fine for numbers. I wanted to show only numbers upside down. Please change the multiplier accordingly for other fonts and letters.
Points of Interest
Width adjustment part can be improved by analysing more and getting a more accurate width. This is just a newbie's way to solve peculiar problems :-)
- First version submitted on 13/10/2007.