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