Clockface and angles

[hemsleysut]

I'd like to design a clockface with an hour and minute hands and the user can move the hands and the angle between them is returned eg 3 o'clock would return 45degrees. Any ideas how to proceed.

 

[onlyadrafter]

Hello,

Very interesting question.

Have got code working out the angle of two lines but I can't seem to get it above 90 degrees, will have a look on Moday as I am about to go home now.

Sub Macro4()
ActiveSheet.Shapes("Line 2").Select
HOR = Selection.ShapeRange.Item("Line 2").Width
VER = Selection.ShapeRange.Item("Line 2").Height
If HOR = 0 Then
    SECOND_ANGLE = 0
Else
If VER = 0 Then
    SECOND_ANGLE = 90
Else
    SECOND_ANGLE = Atn(VER / HOR) * 180 / 3.1415927
End If
End If

ActiveSheet.Shapes("Line 1").Select
H_VER = Selection.ShapeRange.Item("Line 1").Width
H_HOR = Selection.ShapeRange.Item("Line 1").Height
If H_HOR = 0 Then
    HOUR_ANGLE = 0
Else
If H_VER = 0 Then
    HOUR_ANGLE = 90
Else
    HOUR_ANGLE = Atn(VER / HOR) * 180 / 3.1415927
End If
End If
End Sub