View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
JLatham JLatham is offline
external usenet poster
 
Posts: 3,365
Default POSSIBLE TO ROTATE FONTS 180% ?

The only way I know is to use some code. I assume that you want
Type Words in Reverse
to appear as
esreveR ni sdroW epyT

Here's the code to accomplish that - pretty much only works for non Word
wrapped cells (or reverse before applying word wrap). Press [Alt]+[F11] to
get to the VB Editor, use Insert | Module to create a code module, then copy
and paste the code below into it.

Sub ReverseText()
'works with current selection
Dim anyGroup As Range
Dim anyCell As Range
Dim tmpText As String
Dim revText As String
Dim LC As Integer

Set anyGroup = Selection
For Each anyCell In anyGroup
revText = ""
tmpText = anyCell.Text
If Len(tmpText) 0 Then
For LC = Len(tmpText) To 1 Step -1
revText = revText & Mid(tmpText, LC, 1)
Next
anyCell = revText
End If
Next
End Sub

If you want true mirror image of the text, you'd need to create mirrored
font set. If you look closely at the above, you'll notice that the openings
of non-symmetrical characters like e, s, p and d are not reversed. There are
tools that can be used to create new font sets or modify existing ones. I've
successfully used a program called FontCreator to modify existing fonts for
this mirroring. Contact me if you want to try one or two (remove spaces):
HelpFrom @ jlathamsite.com There are copyright issues involved, so any that
you wish to use must also exist and be licensed to you for use on the system.
I haven't researched this in depth, but I would think that fonts provided
with your operating system would meet the requirements.

"J.J." wrote:

I AM USING AN EXCEL SPREADSHEET AND WOULD LIKE TO POST FONTS AT 180%. OF
COURSE I CAN USE THEM AT 90% BUT HAVE NOT FIGURED OUT THE SECRET OF THE 180%
PLEASE HELP.........THANKS IN ADVANCE