wind direction

Is there any way of displaying a cell containing a number 0-360 as a
directional indicator (an arrow or something like that). In need to chart
wind speed and direction against some other data nd I can't think how to do
it. (using Excel97)

Thanks


--
Tobit Curteis
________________________
Cambridge
UK

TC wrote:
> Is there any way of displaying a cell containing a number 0-360 as a
> directional indicator (an arrow or something like that). In need to chart
> wind speed and direction against some other data nd I can't think how to do
> it. (using Excel97)
>
> Thanks
>
>

-------------

Well a brute force approach would be to create your own symbol font. One where
A is an up arrow, B is an arrow pointing 1 degree to the right, etc.

Someone here will probably have a more elegant solution.

Bill

Would something like this work as a demo? You may have to have an event
macro fire to set this up correctly.

Sub Demo()
Dim angle

[A1] = Chr(223)
[A1].Font.Name = "Wingdings"

With Range("A1")
For angle = -90 To 90 Step 1
.HorizontalAlignment = xlCenter
.Orientation = angle
Next
[A1] = Chr(224)
For angle = -90 To 90 Step 1
.HorizontalAlignment = xlCenter
.Orientation = angle
Next
End With
End Sub


--
Dana DeLouis
Win XP & Office 2003


"TC" <tc@DON'TSPAMMEtcassociates.co.uk> wrote in message
news:[email protected]...
> Is there any way of displaying a cell containing a number 0-360 as a
> directional indicator (an arrow or something like that). In need to chart
> wind speed and direction against some other data nd I can't think how to
> do it. (using Excel97)
>
> Thanks
>
>
> --
> Tobit Curteis
> ________________________
> Cambridge
> UK
>

Personally, I think that's way cool.

Bill
-------------------------
Dana DeLouis wrote:
> Would something like this work as a demo? You may have to have an event
> macro fire to set this up correctly.
>
> Sub Demo()
> Dim angle
>
> [A1] = Chr(223)
> [A1].Font.Name = "Wingdings"
>
> With Range("A1")
> For angle = -90 To 90 Step 1
> .HorizontalAlignment = xlCenter
> .Orientation = angle
> Next
> [A1] = Chr(224)
> For angle = -90 To 90 Step 1
> .HorizontalAlignment = xlCenter
> .Orientation = angle
> Next
> End With
> End Sub
>
>