excel macro to turn text in cell upside down

[Alwinaz]

hi there

I found this code to turn a wordart text upside down. How do edit it to turn the content of cell m37 upside down.

here is the code:

Sub upSidn()
Dim n As Object
Application.ScreenUpdating = False
Set n = ActiveSheet.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
 Text:="Whassup?", FontName:="Arial Black", FontSize:=8, FontBold:=msoFalse, _
 FontItalic:=msoFalse, Left:=3, Top:=3)
n.Rotation = 180
End Sub

 

[Momentman]

I would be interested to see how that would work for a cell

As far as I know you cant do that, except you play really smart and put a textbox(without borders) inside the cell and then flip it vertically and make it appear like it was actually the cell value that was flipped(Not that i have ever tried this)

 

[vds1]

Try this code,

Sub up_side_text()


Dim cel As Range
Dim shpOval As Shape

[COLOR=#0000cd]Set cel = Range("M37")[/COLOR]

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, cel.Left, cel.Top, cel.Width, cel.Height).Select
With Selection.ShapeRange
[COLOR=#0000cd]        .TextFrame2.TextRange.Characters.Text = "Whazzup"[/COLOR]
        .Line.Visible = msoTrue
        .IncrementRotation 180
        .TextFrame2.VerticalAnchor = msoAnchorBottom
        .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
        .TextFrame2.VerticalAnchor = msoAnchorMiddle
End With
Range("M37").Select

End Sub