Sorry for the delayed answer..
I recorded a macro to see how it works and everthing is OK but:
Sub rotates()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = Worksheets("Sheet1").Cells(1, 1)
' cell (1,1) =DEGREES(ATAN(B1/B2))
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
when I changed .Orientation= Atn (1) didn't work and didn't even gave an
error.
The script runs without an error or result.
I know that after I'll solve this problem I have to follow this algorithm...
http://www.arctangent.net/atan.html
Any suggestions? Seems too difficult for me for such a little job!!
Thank all of you and specialy to Bernard V Liengme!
PS. I have problem seeing OfficeLive page ..so sorry for delayed answers!
"Bernard Liengme" wrote:
> Is the problem with ATAN or with aligning?
> Please give us more info so we can help
> best wishes
> --
> Bernard V Liengme
> Microsoft Excel MVP
> http://people.stfx.ca/bliengme
> remove caps from email
>
>
> "Dan Tabla" <(E-Mail Removed)> wrote in message
> news:B3B5ABFC-C229-4510-9D1D-(E-Mail Removed)...
> > I have few line segments as a graphic between points described by
> > coordinates
> > (x,y) and I would like to align labels along each graphic segment with the
> > segment description. I was trying to use arctangent function but something
> > is
> > wrong.
> > Any suggestion?
> >
> > 30 cm
> > A(x1,y1)______________________________B(x2,y2)
>
>
>