View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Amish Amish is offline
external usenet poster
 
Posts: 19
Default Can I Rotate with a Condition -or- Can I Display Graphics with aFormula

Thanks Andy. I have no explanation for not thinking of using a
different font! lol

On Dec 28, 7:00*am, Andy Pope wrote:
Hi,

With the Symbol font you can use
Char Value * * *
217 * * * * * * * * Up * * *
218 * * * * * * * * Down * *
60 * * * * * * *< * *Left
62 * * * * * * * * *Right

You could use a UDF to rotate a shape.
In a standard code module place the following code.

Public Function RotateFreeform(Name As String, Angle As Long) As Variant
* * *On Error Resume Next
* * *ActiveSheet.Shapes(Name).Rotation = Angle
* * *Exit Function
End Function

Draw a freeform shape on the worksheet. If you draw a V shape then you
can use the following formulas, making sure the shapes name is correct.

V - =rotatefreeform("Freeform 1",180)
^ - =rotatefreeform("Freeform 1",0)
< - =rotatefreeform("Freeform 1",270)
* - =rotatefreeform("Freeform 1",90)

Cheers
Andy

Amish wrote:
I am trying to write a function that will display less than and
greater than signs, but do so in two directions; I'd like them to go
left to right or up and down.
So my questions is, since I can't find a char() for a reverse caret,
is it possible to either rotate the caret with a conditional, or is
there a way to display graphic characters (which I'll draw) using an
Excel formula?
Thanks


--

Andy Pope, Microsoft MVP - Excelhttp://www.andypope.info